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

Hvala na pomoći.

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