Sub Beispiel()
Dim shpImage As Excel.Shape
Dim strFilename As String
strFilename = "D:\MeinBild.png"
With ThisWorkbook.Charts(1)
Set shpImage = .Shapes.AddPicture(strFilename, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=Application.CentimetersToPoints(0.5), _
Top:=Application.CentimetersToPoints(0.5), _
Width:=Application.CentimetersToPoints(3), _
Height:=Application.CentimetersToPoints(1.5))
End With
End Sub