alle Diagramme i allen Tabellenblättern als Grafik
22.04.2009 09:17:53
Till
wie kann ich alle Diagramme in einer Exceldatei (aus allen Dateiblättern) in fortlaufend nummerierte Grafiken speichern.
Als Ausgangsposition hab ich dieses hier:
Sub Create_GIF()
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export FileName:="c:\Eigene Dateien\Dia.gif",
FilterName:="GIF"
End Sub
Vielen Dank schon mal für die (wie immer schnelle) Hilfe.
Gruß Till