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.