Diagramm als .PNG abspeichern
15.01.2009 12:32:23
Grabner
Ich will ein Excel-Diagram in möglichst hoher Qualität abspeichern. Wenn ich es nur mit Strg-C & Strg-V mache, dann ist das Diagram ziemlich klein. Ich habe dazu folgendes gefunden:
http://www.xxcl.de/0025.htm
Aber irgendwas mache ich anscheinend falsch. So habe ich den Code angepasst:
Sub procDiagrammExportieren()
Dim strGrafikName As String
strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:= _
"GIF-Format (*.gif), *.gif," & _
"JPG-Format (*.jpg), *.jpg")
ActiveSheet.ChartObjects("Diagrams_Image").Chart.Export _
Filename:=Environ("USERPROFILE") & _
"\Eigene Dateien\Reports\" & Range("N1").Value, filtername:="PNG"
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, _
filtername:=Right(strGrafikName, 3)
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
MsgBox "Export nicht moeglich. " & _
"Sie haben kein Diagramm ausgewaehlt.", _
vbCritical + vbOKOnly, _
"Diagramm als Grafik exportieren"
Else
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Diagramm als Grafik exportieren"
End If
End Sub
Oder gibt es eventuell eine andere Möglichkeit? Umschalt-Alt-B funktioniert irgendwie nicht ...
Grüße
Franz