Verknüpfte Bilder in Excel 2013 fest einbinden
Schritt-für-Schritt-Anleitung
Um Bilder in Excel 2013 fest einzubinden, folge diesen Schritten:
-
Öffne Excel und erstelle oder öffne die Arbeitsmappe, in die du die Bilder einfügen möchtest.
-
Drücke Alt + F11 um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke auf
Einfügen > Modul.
-
Kopiere und füge den folgenden Code ein:
Public Sub Beispiel()
Dim objShape As Shape
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
For Each objShape In objWorksheet.Shapes
If objShape.Type = msoLinkedPicture Then
Call objShape.CopyPicture(Appearance:=xlScreen, Format:=xlPicture)
Call objWorksheet.Paste(Destination:=objShape.TopLeftCell, Link:=False)
Call objShape.Delete
End If
Next
Next
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Starte das Makro:
- Gehe zu
Entwicklertools > Makros, wähle Beispiel und klicke auf Ausführen.
Häufige Fehler und Lösungen
-
Fehler 1004: Anwendungs- oder objektdefinierter Fehler
- Überprüfe, ob alle Bilder auf einer Tabelle sind und ob sie korrekt verknüpft sind. Manchmal kann es helfen, die Datei neu zu speichern und das Makro erneut auszuführen.
-
Makro bricht beim gleichen Bild ab
- Wenn das Makro beim wiederholten Durchlauf nicht abbricht, könnte es an temporären Problemen mit Excel liegen. Versuche, Excel neu zu starten.
-
Nicht genügend Arbeitsspeicher vorhanden
- Dies kann vorkommen, wenn du viele Bilder hast. Denke daran, die Bilder in der gewünschten Größe einzufügen und eventuell die Funktion „Bilder komprimieren“ zu nutzen.
Alternative Methoden
Wenn du keine VBA-Programmierung verwenden möchtest, kannst du die Bilder manuell einfügen:
- Gehe zu
Einfügen > Bilder.
- Wähle das Bild aus und klicke auf
Einfügen.
- Nach dem Einfügen kannst du das Bild mit der Maus ziehen, um es an die gewünschte Stelle zu bewegen.
Diese Methode erfordert mehr manuellen Aufwand, ist jedoch einfacher für Benutzer, die mit VBA nicht vertraut sind.
Praktische Beispiele
Ein häufiges Szenario ist das Einfügen von Produktbildern:
- Fall 1: Du hast 13 Bilder, die du in eine Excel-Datei einbinden möchtest.
- Fall 2: Du möchtest, dass beim Einfügen der Bilder die Größe angepasst wird, um die Dateigröße zu minimieren.
Hier ist ein Beispiel, um die Größe der Bilder automatisch anzupassen:
Public Sub BeispielMitGrößenanpassung()
Dim objShape As Shape
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
For Each objShape In objWorksheet.Shapes
If objShape.Type = msoLinkedPicture Then
Call objShape.CopyPicture(Appearance:=xlScreen, Format:=xlPicture)
Set objShape = objWorksheet.Paste(Destination:=objShape.TopLeftCell, Link:=False)
objShape.LockAspectRatio = msoTrue
objShape.Width = 100 ' Beispielbreite in Punkten
Call objShape.Delete
End If
Next
Next
End Sub
Tipps für Profis
-
Makros optimieren: Füge eine Speicherfunktion ein, um die Arbeit zu sichern, während das Makro läuft. Das kann nützlich sein, wenn du viele Bilder bearbeitest.
-
Bilder komprimieren: Nutze die Funktion „Bilder komprimieren“ in Excel, um die Dateigröße zu reduzieren, nachdem du die Bilder eingebettet hast.
-
Verknüpfte Grafiken: Achte darauf, dass du die richtigen Einstellungen für verknüpfte Grafiken verwendest, um sicherzustellen, dass die Bilder auch ohne externe Pfade funktionieren.
FAQ: Häufige Fragen
1. Wie kann ich die Bilder in Excel komprimieren?
Gehe zu Datei > Bilder komprimieren und wähle die gewünschten Optionen aus.
2. Gibt es eine Möglichkeit, die Bilder automatisch in eine bestimmte Größe zu setzen?
Ja, du kannst den VBA-Code anpassen, um die Breite und Höhe der Bilder nach dem Einfügen festzulegen.
3. Was mache ich, wenn die Bilder nicht angezeigt werden?
Überprüfe, ob die Bilder korrekt verknüpft sind und ob die Pfade noch gültig sind. Möglicherweise musst du die Verknüpfungen bearbeiten oder die Bilder erneut einfügen.