Thema: Export von Diagrammen im Grafikformat

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

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikexport