@ > Home > Inhalt > Diagramm als .PNG abspeichern Excel 4+

Anleitung  (für Excel 2000)

1. Diagramm markieren - es sollte jetzt die Zielgröße haben!
2. Umschalt-Alt-B Bild kopieren
3. Darstellung eingeben: Wie angezeigt / Format: Bitmap
4. MS Office Photo Editor oder ein anderes Programm öffnen, Datei öffnen oder als neues Bild einfügen
5. Wenn Sie es möchten: Stellen Sie die Hintergründe der Grafik auf transparent
6. Speichern Sie die Grafik unter .PNG -
   die Datei wird kleiner (oft nur die Hälfte von .GIF),
   ist nach wie vor durch Browser darstellbar,
   aber jetzt auch gemeinfrei, da .PNG ein freies Format darstellt;
   wie .GIF ist auch sie verlustfrei komprimiert.
7. Da Excel-Diagramme prädestiniert für eine Vektorgrafik sind: .SVG wird seit Firefox 1.5 angezeigt.

VBA-Lösung 

Identisches Komplettzitat: 
2002 von Christoph Becker 
2003 aus SmartTools Excel Weekly, 
2003 Klaus-Martin-Buss oder
2006 Hans Herber. Keiner gibt die Quelle an. Daher ist der Urheber mir nicht bekannt.

Sie haben ein Diagramm in Excel erstellt, das Sie nun in einem Word-Dokument oder auf der Webseite verwenden möchten? Excel bietet standardmäßig keine Funktion, mit der Sie ein Diagramm in ein gängiges Grafikformat exportieren können. Ein Blick in das Objektmodell hilft aber weiter: Das Chart-Objekt bietet eine Export-Methode, die Sie mit Hilfe einer kleinen VBA-Routine nutzen können: 

Sub procDiagrammExportieren()
   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 "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
Nachdem Sie diese Prozedur in den VBA-Editor eingegeben haben, weisen Sie sie am besten zum schnellen Zugriff einem neuen Symbol zu. In Zukunft genügt dann das Anklicken eines Diagramms sowie der Aufruf des Makros und Excel zeigt das Dialogfeld DATEI-SPEICHERN UNTER an. Sie können dann das Zielverzeichnis bestimmen, den Dateinamen festlegen und in der Liste DATEITYP das gewünschte Grafikformat (.GIF oder .JPG) auswählen. Nach einem Mausklick auf SPEICHERN wird das Diagramm als separate Grafik gespeichert.

Kurz zur Funktionsweise des Makros: Im ersten Schritt verwenden wir die Methode "GetSaveAsFileName" des Application-Objektes, um den gewünschten Dateinamen sowie das Format abzufragen. Dann aktivieren wir einen Error-Handler, damit wir eine entsprechende Meldung ausgeben können, wenn kein Diagramm aktiviert wurde. Ist kein Fehler aufgetreten, wird die Export-Methode des aktiven Diagramms aufgerufen. Als Argumente übergeben wir den ermittelten Dateinamen und das gewünschte Ausgabeformat (die letzten
drei Zeichen des Dateinamens).

Für eine Speicherung unter .PNG: Siehe oben Anleitung Punkt 4 oder wende entsprechend im Code an: (2007.02.09 Herbert Taferner) 

    ActiveSheet.ChartObjects("Diagramm 1").Chart.Export _ Filename:=Environ("USERPROFILE")& _
    "\Eigene Dateien\Reports\" & Range("B7").Value, filtername:="PNG"
und schreibe in B7 nur den Namen der Datei z. B. hier automat.png