Grafik aus einer anderen Arbeitsmappe kopieren
Schritt-für-Schritt-Anleitung
Um eine Grafik aus einer geschlossenen Excel-Arbeitsmappe in eine andere zu kopieren, kannst Du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie Du dabei vorgehst:
-
Öffne Deine Zielarbeitsmappe (z.B. test.xlsm).
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Rechtsklick auf
VBAProject (test.xlsm) > Einfügen > Modul.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub GrafikKopieren()
Dim wb As Workbook
Dim ws As Worksheet
' Arbeitsmappe öffnen
Set wb = Workbooks.Open("C:\bilder.xlsx", ReadOnly:=True)
Set ws = wb.Sheets("Tabelle1")
' Grafik kopieren
ws.Shapes("Grafik1").CopyPicture
' Zielarbeitsmappe aktivieren
ThisWorkbook.Activate
ThisWorkbook.Sheets("Tabelle1").Activate
' Altes Bild löschen (optional)
On Error Resume Next
ActiveSheet.Shapes("Bild1").Delete
On Error GoTo 0
' Neues Bild einfügen
ActiveSheet.Paste
' Arbeitsmappe schließen
wb.Close SaveChanges:=False
End Sub
-
Schließe den VBA-Editor und führe das Makro aus, indem Du ALT + F8 drückst und auf GrafikKopieren klickst.
Häufige Fehler und Lösungen
-
Fehler: "Shape nicht gefunden"
- Lösung: Überprüfe, ob der Name des Shapes in der Quelle und im Ziel korrekt ist. Achte auf Groß- und Kleinschreibung.
-
Fehler: "Datei nicht gefunden"
- Lösung: Stelle sicher, dass der Pfad zur Arbeitsmappe korrekt ist und dass die Datei nicht umbenannt oder verschoben wurde.
-
Fehler: "Zugriff verweigert"
- Lösung: Stelle sicher, dass die Datei nicht schreibgeschützt ist und dass Du über die entsprechenden Berechtigungen verfügst.
Alternative Methoden
Wenn Du keine VBA-Programmierung verwenden möchtest, gibt es auch alternative Methoden, um Grafiken zu kopieren:
-
Manuelles Kopieren:
- Öffne beide Arbeitsmappen. Kopiere die Grafik in
bilder.xlsx mit STRG + C und füge sie in test.xlsm mit STRG + V ein.
-
Screenshot-Methode:
- Mache einen Screenshot der Grafik und füge diesen in Deine Zielarbeitsmappe ein. Dies ist zwar nicht ideal, kann aber in Eile hilfreich sein.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie Du die obigen Methoden anwenden kannst:
Tipps für Profis
-
Namen von Shapes anpassen:
Benenne Deine Shapes in der Zielarbeitsmappe um, um sie leichter wiederzufinden und zu bearbeiten.
-
Makros automatisieren:
Wenn Du häufig Grafiken kopieren musst, überlege, das Makro mit einer Schaltfläche in der Arbeitsmappe zu verknüpfen.
-
Optimierung der Bildschirmaktualisierung:
Verwende Application.ScreenUpdating = False zu Beginn Deines Makros, um die Leistung zu verbessern, und setze es am Ende wieder auf True.
FAQ: Häufige Fragen
1. Kann ich Grafiken aus mehreren Arbeitsmappen gleichzeitig kopieren?
Ja, Du kannst das Makro anpassen, um mehrere Grafiken aus verschiedenen Arbeitsmappen zu kopieren, indem Du mehrere Workbooks.Open-Befehle einfügst.
2. Ist es möglich, die Grafik in eine andere Datei zu kopieren, ohne die Dateien zu öffnen?
Standardmäßig müssen alle Grafiken aus geschlossenen Arbeitsmappen über VBA geöffnet werden, um auf sie zugreifen zu können. Eine direkte Methode ohne Öffnen ist nicht möglich.
