Bilder in Excel 2010 per VBA einfügen

Was bei Excel 2003 noch funktionierte

Call ActiveSheet.Pictures.Insert("C:\Temp\Image.jpg")

schlägt bei Excel 2010 fehl. Stattdessen muss hier Folgendes getan werden:

Dim targetRange as Range
Set targetRange = Range("B2")

Dim pictureShape as Shape
Set pictureShape = ActiveSheet.Shapes.AddPicture( _
    "C:\Temp\Image.jpg", _
    False, True, _
    targetRange.Left, _
    targetRange.Top, _
    targetRange.Width, _
    targetRange.Height)

Anschließend muss dann nur noch das neue Shape auf die gewünschte Größe skaliert werden.

Schreib' einen Kommentar