Diagramm als .PNG abspeichern
30.01.2009 12:33:19
Grabner
Es geht um folgendes Thema, dass ich vor einiger Zeit mal gestellt hatte:
https://www.herber.de/forum/archiv/1040to1044/t1040069.htm
Das Problem ist, dass es immer nur das erste Diagramm des aktiven Excel-Registers exportiert. Jetzt habe ich mal testweise ActiveSheet.ChartObjects(2).Chart, ActiveSheet.ChartObjects(3).Chart usw. probiert. Dies funktioniert dann. Aber gibt es nicht eine andere Methode die das aktuell angeklickte Diagramm exportiert?
Hier nochmal der Code:
Sub diagramm_exportieren()
Dim chDiagramm As Chart ' Variable für Diagramm als Objekt
If ActiveSheet.ChartObjects.Count > 0 Then
' Diagramm1 der aktiven Tabelle auf Variable schreiben
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
' Diagramm als PNG-Datei exportieren
chDiagramm.Export Filename:="C:\temp\diagramm.png", FilterName:="PNG"
Else
MsgBox "Kein Diagramm enthalten"
End If
End Sub
LG
Franz