Gruppe
Grafik
Problem
Wie kann ich Excel-Diagramm im *.GIF-Format speichern?
StandardModule: basMain
Sub GrafikSpeichern()
Const csMsg As String = "Die Diagramm-Grafik kann nicht " & _
"auf CD-ROM gespeichert werden. Speichern Sie die " & _
"Arbeitsmappe auf Ihrer Festplatte und versuchen " & _
"Sie es erneut."
Dim sFile As String
sFile = ThisWorkbook.Path & "\test_dia.gif"
On Error GoTo ERRORHANDLER
Diagramm1.Export sFile
MsgBox prompt:="Das Diagramm wurde gespeichert unter " & _
sFile
Exit Sub
ERRORHANDLER:
MsgBox prompt:=csMsg
End Sub