Hi Björn,

versuche es hiermit

Sub Bild_exportieren()
    Dim chDiagramm As ChartObject
    Dim shBild As Shape
    Application.ScreenUpdating = False
    Set shBild = ActiveSheet.Shapes("Picture 6")
    shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
    With chDiagramm.Chart
        .Paste
        .Export Filename:="C:\Test\Bild.png", FilterName:="PNG" ' andere Grafikformate sind möglich
    End With
    chDiagramm.Delete
    Set chDiagramm = Nothing
    Set shBild = Nothing
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin

Hallo Beverly!

Leider funktioniert es nicht.

.Export FileName:="c:\test.gif", FilterName:="GIF"

Danke!
Björn

Problem gelöst. Der GIF-Filter war nicht Teil der Standardinstallation und musste nachinstalliert werden. Nur gut, dass die Programmierrichtlinien von Microsoft aussagekräftige Fehlermeldungen strikt verbieten! In was für einer Welt lebten wir denn sonst?

Danke, Beverly!