Bilder per VBA in Orginalgröße einbetten
02.07.2019 20:35:36
Florian
ich stehe vor einem Dilemma, weil es in Excel 2010 mit ActiveSheet.Pictures.Insert nur noch Verknüpfungen gibt und leider keine Einbettung mehr. Dafür muss man wohl das Shape-Objekt nutzen. Soweit so gut.
Aber wie kann ich dem Shape-Objekt die Orginal-Bildgröße mitgeben?
mit:
Set pictureShape = ActiveSheet.Shapes.AddPicture("N:\Extrusion\1_1_Zg\" & Dateiname & ".jpg", False, True, targetRange.Left, targetRange.Top, targetRange.Width, targetRange.Height) bekomme ich das Bild immer in Zellgröße.
Klar kann ich bei Width und Height die Höhe vorgeben, aber genau das möchte ich ja nicht. Das Bild soll in seiner ursprünglichen Auflösung mit seinen ursprünglichen Proportionen eingebettet werden.
Gibt es dafür eine Lösung?
Danke für eure Antworten!
Grüße
Florian