Sub WaTeRwOrLd()
Dim CH As Chart
Dim CO As ChartObject
XX.Activate ' XX is mein Worksheet
XX.Cells(1).Select
Set CH = Charts.Add
CH.Location Where:=xlLocationAsObject, Name:="XX"
Set CO = XX.ChartObjects(1)
Set CH = CO.Chart
CH.ChartArea.Fill.UserPicture PictureFile:=PICTUREPATH
CO.ShapeRange.Width = 200
CO.ShapeRange.Height = 100
CH.Export Environ("TEMP") & "tmp", "JPG"
FileCopy Environ("TEMP") & "tmp", DESKTOPPATH & "pic.jpg"
CH.Export Environ("TEMP") & "tmp", "GIF"
FileCopy Environ("TEMP") & "tmp", DESKTOPPATH & "pic.gif"
Kill Environ("TEMP") & "tmp"
CO.Delete
End Sub