Also hier jetzt mal eine Version die davon ausgeht, dass in der Zelle 6 der Pfad zur Datei steht. (wenn Bilder eingefügt wären, müsstest du auf der Excelliste erst wieder suchen, welches es ist). Da du danach ggf. noch die Größe ändern willst, wird noch nach dem ersten Bild gesucht und dann die Größe geändert. Sieht dann wie unten aus. Gruß
pfad = CStr(.Cells(lZeile, 5).Value)
ActiveDocument.Bookmarks("Bild").Range.InlineShapes.AddPicture FileName:=pfad, LinkToFile:=False, SaveWithDocument:=True
For i = 1 To ActiveDocument.InlineShapes
If ActiveDocument.InlineShapes(i).Type = 3 Then
ActiveDocument.InlineShapes(2).Width = 12
ActiveDocument.InlineShapes(2).Height = 6
Exit For
End If
Next i
|