Excel-Diagramm als Bild kopieren und speichern
Schritt-für-Schritt-Anleitung
Um ein Diagramm aus Excel als Bild zu kopieren, kannst Du folgenden VBA-Code verwenden. Dieser Code exportiert das Diagramm als JPG-Datei und fügt es in ein anderes Tabellenblatt ein:
Sub diagramm_exportieren()
' Diagramm als JPG-Datei exportieren
ActiveSheet.ChartObjects(1).Chart.Export Filename:="C:\Test\TestBildxxxx.jpg", FilterName:="JPG"
' Als Bild in Tabelle2 einfügen
Worksheets("Tabelle2").Pictures.Insert ("C:\Test\TestBildxxxx.jpg")
' Abgelegtes Bild löschen
Kill "C:\Test\TestBildxxxx.jpg"
End Sub
Achte darauf, den Speicherort für das Bild anzupassen. Mit diesem Code kannst Du das Diagramm als Bild speichern und sicherstellen, dass das Datumsformat beim Kopieren beibehalten wird.
Häufige Fehler und Lösungen
Ein häufiger Fehler beim Kopieren von Diagrammen per VBA ist die Änderung des Datumsformats. Wenn Du feststellst, dass die Datumswerte in der kopierten Grafik anders angezeigt werden, kannst Du diesen Workaround verwenden:
- Stelle sicher, dass das Diagramm als Bild exportiert wird, bevor Du es einfügst.
- Vermeide die Verwendung von
CopyPicture, da diese Methode oft zu Formatänderungen führt.
Für Benutzer von Excel 2003 könnte es hilfreich sein, das Diagramm als Bild zu exportieren, wie im obigen VBA-Beispiel gezeigt.
Alternative Methoden
Wenn Du das Diagramm in ein anderes Tabellenblatt kopieren möchtest, gibt es auch die Möglichkeit, das Diagramm direkt zu duplizieren:
Sub DiagrammDuplizieren()
ActiveSheet.ChartObjects("Diagramm 1").Duplicate
End Sub
Diese Methode könnte Dir helfen, Probleme mit der Formatierung zu vermeiden, ist jedoch nicht immer die beste Wahl, wenn Du das Diagramm als Bild benötigst.
Praktische Beispiele
Hier ist ein einfaches Beispiel, wie Du ein Diagramm erstellen und als Bild speichern kannst:
- Erstelle ein Diagramm aus einer Datenreihe in Excel.
- Verwende den oben genannten Code, um das Diagramm als JPG zu exportieren und in ein anderes Tabellenblatt einzufügen.
- Teste, ob das Datumsformat korrekt bleibt.
Das Diagramm kann auch als PNG gespeichert werden, indem Du den Filter FilterName:="PNG" im Export-Code änderst.
Tipps für Profis
- Um Bilder kopieren ohne Datumsänderung zu gewährleisten, exportiere das Diagramm immer zuerst als Bild.
- Benutze eindeutige Dateinamen für die exportierten Bilder, um Überschreibungen zu vermeiden.
- Achte darauf, dass Dein Code in der richtigen Excel-Version getestet wird, da es Unterschiede in der Unterstützung für VBA-Funktionen gibt.
FAQ: Häufige Fragen
1. Wie kann ich ein Diagramm als PNG speichern?
Ändere einfach den Filter im Export-Code zu FilterName:="PNG".
2. Warum ändert sich das Datumsformat beim Kopieren?
Dies kann auf die Art und Weise zurückzuführen sein, wie Excel das Diagramm verarbeitet. Verwende die Export-Methode, um dieses Problem zu umgehen.
3. Welche Excel-Version benötige ich für diesen Code?
Der bereitgestellte Code sollte in Excel 2010 und neuer funktionieren. Bei älteren Versionen wie Excel 2003 können Formatierungsprobleme auftreten.