Diagramme exportieren und speichern

23/04/2008 - 16:02 von Harald Schlüter | Report spam
Hallo Zusammen,

ich möchte ein Diagramm exportieren (wie unten im Makro programmiert).
Der Pfad und Dateiname sind bislang aber vorgegeben (C:\data
\PROFIT.gif).

Gibt es eine Programmierung, dass ich den Pfad und den Dateinamen
selbst bestimmen kann (so etwas wie save as über ein "speichern unter"
Datei-Fenster)?



Sub diagramm_als_grafik_speichern()

Dim Dia As Chart

Sheets("Profits (Y1)").Activate
Set Dia = ActiveSheet
Dia.Export Filename:="c:\data\PROFIT.gif", _
FilterName:="GIF"

End Sub




Danke und Gruß

Harald
 

Lesen sie die antworten

#1 stefan onken
23/04/2008 - 16:22 | Warnen spam
On 23 Apr., 16:02, Harald Schlüter wrote:
Hallo Zusammen,

ich möchte ein Diagramm exportieren (wie unten im Makro programmiert).
Der Pfad und Dateiname sind bislang aber vorgegeben (C:\data
\PROFIT.gif).

Gibt es eine Programmierung, dass ich den Pfad und den Dateinamen
selbst bestimmen kann (so etwas wie save as über ein "speichern unter"
Datei-Fenster)?

Sub diagramm_als_grafik_speichern()

Dim Dia As Chart

Sheets("Profits (Y1)").Activate
Set Dia = ActiveSheet
Dia.Export Filename:="c:\data\PROFIT.gif", _
FilterName:="GIF"

End Sub

Danke und Gruß

Harald



hallo Harald,
schau dir mal Application.GetSaveAsFilename() in der VBA-Hilfe an. Bei
datei = Application.GetSaveAsFilename()
steht in der Variablen datei Pfad und Dateiname. Speichern musst du
dann per VBA.
ActiveWorkbook.SaveAs datei

Gruß
stefan

Ähnliche fragen