Grafik speichern, prüfen ob bereits vorhanden

24/04/2008 - 09:30 von Harald Schlüter | Report spam
Guten Morgen,

schaut Euch mal bitte nachstehenden vba-code an:


Sub Grafikexport()

Dim Dia As Chart

On Error GoTo err_handler

Set Dia = ActiveSheet
Dia.Export Filename:=Application.GetSaveAsFilename("Chart.gif",
fileFilter:="GIF-Files (*.gif), *.gif")

err_handler:
Select Case (Err.Number)
Case 1004
MsgBox "Please note: The chart was not saved!",
vbExclamation
Case 13
MsgBox "You can only export charts. Please click on a
chart and press ctrl+e!", vbCritical
Case Else
MsgBox Err.Number & vbNewLine & Err.Description
End Select

End Sub



Wie kann ich den Code erweitern, dass ich darauf hingewiesen werden,
dass die Datei bereits existiert.
Dann sollte noch die Abfrage kommen, ob die Datei überschrieben werden
soll bzw. ein anderer Dateiname vergeben werden soll.


Vielen Dank im Voraus.

Beste Grüße

Harald
 

Lesen sie die antworten

#1 Beverly
24/04/2008 - 10:10 | Warnen spam
Hi Harald,

als Anregung: so làsst sich prüfen, ob eine Datei schon vorhanden ist

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.fileexists("C:\Test\Bild10.jpg") Then MsgBox "Bild schon vorhanden"

Bis spàter,
Karin
http://beverly.excelhost.de/



"Harald Schlüter" wrote:

Guten Morgen,

schaut Euch mal bitte nachstehenden vba-code an:


Sub Grafikexport()

Dim Dia As Chart

On Error GoTo err_handler

Set Dia = ActiveSheet
Dia.Export Filename:=Application.GetSaveAsFilename("Chart.gif",
fileFilter:="GIF-Files (*.gif), *.gif")

err_handler:
Select Case (Err.Number)
Case 1004
MsgBox "Please note: The chart was not saved!",
vbExclamation
Case 13
MsgBox "You can only export charts. Please click on a
chart and press ctrl+e!", vbCritical
Case Else
MsgBox Err.Number & vbNewLine & Err.Description
End Select

End Sub



Wie kann ich den Code erweitern, dass ich darauf hingewiesen werden,
dass die Datei bereits existiert.
Dann sollte noch die Abfrage kommen, ob die Datei überschrieben werden
soll bzw. ein anderer Dateiname vergeben werden soll.


Vielen Dank im Voraus.

Beste Grüße

Harald

Ähnliche fragen