JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!
TAUSEND DANK! Ich bin sowas von happy und beeindruckt...
Als ich das noch hatte:
pfad = CStr(.Cells(lZeile, 11).Value)
ActiveDocument.Bookmarks("Bild").Range.InlineShapes.AddPicture FileName:=pfad, LinkToFile:=False, SaveWithDocument:=True
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = 3 Then
ActiveDocument.InlineShapes(2).Width = 12
ActiveDocument.InlineShapes(2).Height = 6
Exit For
End If
Next i
Kam die Fehlermeldung: "Das angeforderte Element ist nicht in der Sammlung" --> bezogen auf "ActiveDocument.InlineShapes(2).Width = 12"
Wenn ich den Code kürze auf:
pfad = CStr(.Cells(lZeile, 11).Value)
ActiveDocument.Bookmarks("Bild").Range.InlineShapes.AddPicture FileName:=pfad, LinkToFile:=False, SaveWithDocument:=True
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = 3 Then
Exit For
End If
Next i
Dann klappt es... Sehe ich das richtig: Wenn ich alle Grafiken im entsprechenden Ordner in der richtigen Grösse abspeichere, dann brauche ich die beiden Zeilen auch nicht, weil ich keine Grössendefinition machen muss?!?!
|