Supportnet / Forum / Tabellenkalkulation

Hallo! Ich möchte mit VBA ein Exceldiagramm als GIF-Datei exportieren. Wie macht man das? (Version 97) Danke! Björn

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!

• Erstellung einer Grafik via Makro
• Diagramm als Bild speichern (Code vorhanden aber kleines Problem)
• Verknüpfen eines Excel-Diagramms aus einer anderen Excel-Datei