Benutzer:Hedwig in Washington/XLS
Zur Navigation springen
Zur Suche springen
Excel-Tools[Bearbeiten | Quelltext bearbeiten]
Excel-Diagramm als JPG speichern[Bearbeiten | Quelltext bearbeiten]
Hier ein kleines Makro, um das aktive Excel-Diagramm als JPG zu speichern. Der Pfad (C:\Temp) kann angepasst werden.
- mit ALT-F11 den VBA-Editor öffnen
- oben links erscheint ein kleines Fenster Projekt-VBA-Projekt
- Rechtsklick auf VBA-Projekt(Name der Datei)
- Einfügen wählen, Modul wählen
- unten erstelltes Makro markieren und in das neu geöffnete Fenster kopieren
- zurück zum Diagramm, ALT-F8 drücken, Fenster Makros wird geöffnet
- das neu erstellte Makro auswählen und starten
- Dateinamen angeben
- 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:[Bearbeiten | Quelltext bearbeiten]
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