Diagramm export
21.03.2013 00:38:01
Uta
leider bin ich nicht in der Lage, Eure netten und umfangreichen Beiträge für mich umzusetzen. Darum bitte ich um Hilfe bei folgendem Problem.
Ich möchte mit folgendem Makro, das ich aus diesem Forum entnommen habe, Diagramme aus meinen Arbeitsmappen als jpg abspeichern. Wenn ich nur ein Diagramm habe, klappt es, aber...
die anghängte Mappe hat 2 Tabellenblätter mit je 2 Diagrammen (in Wahrheit können es natürlich noch mehr werden). Ich möchte diese Diagramme einigermaßen sortiert exportieren.
https://www.herber.de/bbs/user/84474.xlsx
Wie kann ich das Makro ändern, so dass ein bestimmtes Diagramm exportiert wird.
Und am besten noch mit einem Dateinamen in der Art: Dateiname_Diagrammname also z.B. Forum_Wal2010.jpg.
Geht das über eine Rückfrage, in der ich das Diagramm auswählen kann?
Sub DiagrammExportieren()
Dim chDiagramm As Chart
' Variable für Diagramm als Objekt
' Diagramm1 der aktiven Tabelle auf Variable schreiben
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
' Diagramm als JPG-Datei exportieren
chDiagramm.Export Filename:="G:\Grafik\Forum_Wal2010.jpg", FilterName:="JPG"
End Sub
UTA