Im Archiv habe ich diese Lösung gefunden:
Sub BilderExportierenShape()
Dim shBild As Shape
Set shBild = ActiveSheet.Shapes(1)
BildExportShape shBild
Set shBild = Nothing
End Sub
Sub BildExportShape(shExport As Shape)
Dim chDiagramm As ChartObject
Application.ScreenUpdating = False
shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\Bild1.jpg", FilterName:="JPG"
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shExport = Nothing
Application.ScreenUpdating = True
End Sub
Mit disem Verfahren werden aber nur leere Bilder gespeichert.
wenn ich bei ".Paste" einen Haltepunkt setze Funktioniert es wie gewünscht.
Dieses Verhalten ist doch eigentlich absurd.
Wenn ich, ohne Haltepunkt, Die Anweisung "chDiagramm.Delete" auskommentiere,
sehe ich dass das gewünschte Bild nicht in das Chart Objekt eingefügt wird
Gruß
Volkmar