ich habe einen Wechsel von auf 365 hinter mir. Seitdem funktioniert mein Makro nicht mehr.
Auf dem Sheet wird zuerst eine Selektion definiert und daraus soll eine Grafik erstellt werden und die dann abgelegt werden.
Es kommt keine Fehlermeldung, und es wird auch eine BMP angelegt, nur ist der Inhalt der BMP immer nur eine weiser Hintergrund. Irgend wie funktioniert das Kopieren der Selektion nicht richtig, kann jemand sehen, warum ? :
Set rngImage = Selection
rngImage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Worksheets("TEMP_Zusammen").Paste
Set objPict = Worksheets("TEMP_Zusammen").Shapes(Worksheets("TEMP_Zusammen").Shapes.Count)
strFile = strPfad & "\" & Range("A2") & ".bmp"
objPict.Copy
Set objChrt = Worksheets("TEMP_Zusammen").ChartObjects.Add(1, 1, objPict.Width + 0, objPict.Height + 0).Chart
objChrt.Paste
objChrt.Export strFile
objChrt.Parent.Delete
objPict.Delete
Danke
Jockel