Diagramme als Grafik speichern

Gültig für: Alle Windows Versionen

---

Diagramme in Excel lassen sich zwar mit der Tabelle speichern, nicht aber extern als Grafik.

 

Von Bernd Held (Autor bekannter Fachbücher zu Excel) stammt das folgende Macro, welches das Diagramm als GIF oder JPG speichert. Hierzu muss im Quelltext einfach GIF durch JPG ersetzt werden. Mit dem Macro für Excel97/2000 wird das Diagramm genau in der Größe gespeichert, wie es auf dem Bildschirm gerade zu sehen ist und im Ordner abgelegt, der als Const PfadDiagramm angegeben ist.

 

Sub DiagrameinmalsGifSpeichern()

Dim GDiagramm As Chart

Dim NameT As String

Const PfadDiagramm = "C:\temp\"

Set GDiagramm = ActiveChart

NameT = InputBox("Name der Datei:", "Export Chart", ActiveChart.Name)

If NameT <> "" Then

GDiagramm.Export Filename:=PfadDiagramm & NameT & ".GIF", FilterName:="GIF"

End If

End Sub

---