Bild dynamisch eingefügt, jetzt größe anpassen?
05.08.2008 15:20:00
Tom
hab mir ein VBA-Code zusammengebastellt mit dem ich je nach Bedarf in der Aktiven Zelle ein Bild einfüge.
Das Bild heisst wie die Sachnummer die in Zeile C steht.
Hier mal der Code:
Sub Bild_Einfügen()
Dim i As Integer
i = 3
With ActiveSheet.Pictures.Insert("U:\Projekt_Bild_Einfügen\Bilder\" _
& Cells(ActiveCell.Row, i).Value & ".jpg")
End With
End Sub
Jetzt würd ich gerne, da das Bild immer in Originalgröße angezeigt wird etwas zurechtstutzen.
Kann mir vll. jemand sagen was ich dafür noch zusätzlich in meinen Code einfügen muss?
mfg Tom