PDA

Vollständige Version anzeigen : Diagramme


derhard
17.03.2009, 17:20
Hallo zusammen,
in meiner Exceltabelle erstelle ich an Hand von Messwerten Auswertdiagramme
zu jeder Spalte wird ein Diagramm nebeneinader erzeugt.
Dann können schnell mal über 100 Diagramme vorliegen!
Wie kann ich via VBA angefangen von dem Diagramm das gerade markiert wird
alle darauffolgenden Diagramme bis zum letzen als .gif Grafik in das Verzeichnis E:\Diagramme
gespeichert werden?
Die erste markierte Startdatei sollte mit dem heutigen Datum und dann 01.gif usw.
automatisch in das Verzeichnis abgespeichert werden.
Also Start: 17.03.09_01.gif nächste 17.03.09_02.gif usw.

Vielen Dank für die Hilfe
Gruß derhard

jinx
17.03.2009, 17:32
Moin, derhard,

Sub AlleDiagrammeExportGIF()

Dim lngZähler As Integer
Dim oDiagramm As ChartObject
Dim strName As String
Dim wsTabelle As Worksheet

For Each wsTabelle In ActiveWorkbook.Worksheets
For Each oDiagramm In wsTabelle.ChartObjects
lngZähler = lngZähler + 1
strName = "C:\" & Format(Date, "yyyymmdd") & "_" & lngZähler & ".gif"
oDiagramm.Chart.Export strName, "GIF"
Next oDiagramm
Next wsTabelle

End Sub

derhard
17.03.2009, 18:54
Vielen Dank für die schnelle Hilfe,
funktioniert soweit, nur die .gif Dateien sollten in das
Verzeichnis E:\Diagramme abgelegt werden!
Gruß derhard

Mykmaster
18.03.2009, 07:50
Guten Morgen.

Dann würde ich im Code das "C:\" mit "E:\Diagramme" ersetzen.

Gruß
Frank