Benutzer:Hedwig in Washington/XLS

Excel-Tools

Excel-Diagramm als JPG speichern

Hier ein kleines Makro, um das aktive Excel-Diagramm als JPG zu speichern. Der Pfad (C:\Temp) kann angepasst werden.

1. mit ALT-F11 den VBA-Editor öffnen
2. oben links erscheint ein kleines Fenster Projekt-VBA-Projekt
3. Rechtsklick auf VBA-Projekt(Name der Datei)
4. Einfügen wählen, Modul wählen
5. unten erstelltes Makro markieren und in das neu geöffnete Fenster kopieren
6. zurück zum Diagramm, ALT-F8 drücken, Fenster Makros wird geöffnet
7. das neu erstellte Makro auswählen und starten
8. Dateinamen angeben
9. FERTIG

Quelle: Irgendein Internetforum mit Excel-Schwerpunkt. Dieses Makro habe ich schon so lange, daß ich nicht mehr genau sagen kann, wo es herkommt.

ICH ÜBERNEHME KEINE HAFTUNG FÜR DATENVERLUST ODER ÄHNLICHES!
DAS MAKRO FUNKTIONIERT BEI MIR EINWANDFREI, VORHER IMMER EIN BACKUP MACHEN!

Zum ausschnippeln:

Sub DiagrammAlsJPGSpeichern()

Dim GDiagramm As Chart

Dim NameT As String

Const PfadDiagramm = "C:\temp\"

Set GDiagramm = ActiveChart

NameT = InputBox("Name der Datei:", "Export Chart", ActiveChart.Name)

If NameT <> "" Then

GDiagramm.Export Filename:=PfadDiagramm & NameT & ".JPG", FilterName:="JPG"

End If

End Sub