Möchte ein Bild mittels VBA so einfügen, dass die obere linke Ecke in der Zelle "B5" liegt.
Das Bild soll aber in Originalgrösse bleiben.
Mein Code sieht so aus:
Bild = Ordner & "L" & BogenNr & "_" & "2" & ".jpg"
If Bild "" Then
Set varBild = ActiveSheet.Shapes.AddPicture(Bild, True, True, Range("B5").Left, Range("B5").Top, 500, 500)
End If
Mit diesem Code wird das Bild aber gestreckt auf 500x500. Was muss ich dort eintragen, damit die Originalgrösse beibehalten wird?
Gruss und Danke!
Marc