Attribute VB_Name = "Modul1"
Sub Diagramm_als_Grafik_Speichern()
Dim strGrafikName As String
strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:="GIF-Format (*.gif)," & _
" *.gif,JPG-Format (*.jpg), *.jpg")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
MsgBox "Markieren Sie zuvor das Diagramm, das als Grafik exportiert werden soll.", _
vbCritical + vbOKOnly, _
"Achtung"
Else
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Achtung"
End If
End Sub