Hallo Zusammen,
ich füge per VBA Bilder einem Excel Sheet hinzu. Leider verschieben sich die Bilder mit der Anzahl doch deutlich.
Sub bilddrucken()
Dim pic As Shape
verzeichnis99 = laufwerk & "\Bilder_SAP\" & CStr(masterartikel) & ".jpg"
If Dir(verzeichnis99) = "" Then Set pic = Nothing: Exit Sub
Set pic = Worksheets("Bestellliste").Shapes.AddPicture(Filename:=verzeichnis99, LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=Worksheets("Bestellliste").Cells(d, 7).Left + 2, _
Top:=Worksheets("Bestellliste").Cells(d, 7).Top + 2, Width:=-1, Height:=-1)
With pic
.LockAspectRatio = msoTrue
If .Height <> 30 Then .Height = 30
If .Width <> 30 Then .Width = 30
.Left = Worksheets("Bestellliste").Cells(d, 7).Left + 2
.Top = Worksheets("Bestellliste").Cells(d, 7).Top + 2
End With
Set pic = Nothing
End Sub
Wie bekomm ich die Bilder komplett zentriert, vom ersten bis zum letztem Bild?
Danke
Gruß
|