[es] - macro-insert picture

gatalinka

Član broj: 201383
Poruke: 53
*.mup.hr.

Profil

^{24.08.2010. u 14:10 - pre 166 meseci}

Trebam Macro koji bi iz određene datoteke u Wordov dokument umetnuo slike (format nije bitan), i to više slika odjednom. Slike svaki put nemaju isti naziv, a i broj nije isti (ponekad umećem dvije, jednu ili više).
Dokument mora biti Word.

Unaprijed hvala

Odgovor na temu

vaskesd
Milenko Vasic
Smederevo

Član broj: 119610
Poruke: 62
*.adsl.eunet.rs.

+1 Profil

Re: macro-insert picture

^{22.09.2010. u 13:34 - pre 165 meseci}

evo macroa nadam se da nije kasno

1. Macro koji umece jednu ili x slika, automatski podesava velicinu slike prema marginama dokumenta i potpisuje sliku - potpis = filename

Sub Stavi_Slike_i_naslov()
'
' dddd Macro
' Macro created 15.9.2010 by vaske
'Sub InsertImages()
Dim doc As Word.Document
Dim bkmName As String
Dim SigFile As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set doc = ActiveDocument
Dim vrtSelectedItem As Variant
Dim theText() As String
Dim theText2 As String

With fd
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

'Sets the initial file filter to number 2.
.FilterIndex = 1

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems
Set mg2 = ActiveDocument.Range
mg2.Collapse wdCollapseEnd

doc.InlineShapes.AddPicture _
fileName:=vrtSelectedItem, _
LinkToFile:=False, SaveWithDocument:=True, Range:=mg2
Set mg1 = ActiveDocument.Range
mg1.Collapse wdCollapseEnd
'mg1.MoveEnd Unit:=wdCharacter, Count:=-1

theText() = Split(vrtSelectedItem, "\")
theText2 = theText(UBound(theText))
theText2 = Left(theText2, InStrRev(theText2, ".") - 1)

mg1.Text = Chr(13) + Chr(10) + theText2 + Chr(13) + Chr(10) + Chr(13) + Chr(10)
Next vrtSelectedItem
Else
End If
End With

End Sub

Ako zelis vise slika drzi Ctrl + file ili Ctrl + A za sve slike iz foldera

Odgovor na temu

gatalinka

Član broj: 201383
Poruke: 53
213.147.100.*

Profil

Re: macro-insert picture

^{28.09.2010. u 12:55 - pre 165 meseci}

Hvala na pomoći.

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: macro-insert picture

^{29.09.2010. u 17:08 - pre 165 meseci}

Kad je već otvorena tema o manipulaciji slikama u Wordu sa Macro kodom evo jedan poveći tutorijal u kojem su skupljeni različiti Macro kodovi za rad i manipulaciju (Resize) slikama uz Wordu

- Resize images in Word with Macro

Odgovor na temu