Eingebettete Objekte in Excel per Makro öffnen
Schritt-für-Schritt-Anleitung
Um ein eingebettetes Objekt (z.B. eine PDF-Datei) in Excel per Makro zu öffnen, folge diesen Schritten:
-
Makro erstellen: Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Modul hinzufügen: Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Code eingeben: Füge den folgenden VBA-Code in das Modul ein:
Sub ÖffneEingebettetesObjekt()
ActiveSheet.Shapes("Objekt 1").OLEFormat.Verb Verb:=xlVerbOpen
End Sub
Ersetze "Objekt 1" durch den Namen deines eingebetteten Objekts.
-
Makro ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Drücke ALT + F8, wähle das Makro ÖffneEingebettetesObjekt aus und klicke auf Ausführen.
Häufige Fehler und Lösungen
-
Fehler: Objekt nicht gefunden
Lösung: Stelle sicher, dass der Name des Objekts korrekt ist. Du kannst den Namen ändern, indem du das Objekt auswählst und im Eigenschaftenfenster umbenennst.
-
Fehler: Makro funktioniert nicht
Lösung: Überprüfe, ob Makros in deiner Excel-Version aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option.
Alternative Methoden
Eine weitere Möglichkeit, ein eingebettetes Objekt zu öffnen, ist die Verwendung des Makro-Rekorders:
- Starte den Makro-Rekorder (
Entwicklertools > Aufzeichnen).
- Öffne das eingebettete Objekt manuell.
-
Stoppe die Aufzeichnung und überprüfe den generierten Code. Dieser könnte so aussehen:
Sub Makro1()
ActiveSheet.Shapes("Objekt 1").Select
Selection.Verb
End Sub
Du kannst diesen Code anpassen, um die .OLEFormat-Methode zu nutzen.
Praktische Beispiele
Hier ist ein Beispiel, wie du ein PDF-Dokument namens Vertrag.pdf öffnen kannst:
Sub ÖffneVertrag()
ActiveSheet.Shapes("Vertrag").OLEFormat.Verb Verb:=xlVerbOpen
End Sub
Achte darauf, dass du den Shape-Namen auf Vertrag anpasst.
Tipps für Profis
- Nutze die
Shell-Funktion, um spezifische Programme zu öffnen, wenn du mehr Kontrolle benötigst.
-
Erstelle Fehlerbehandlungsroutinen, um unerwartete Probleme beim Öffnen von Objekten zu vermeiden:
On Error Resume Next
ActiveSheet.Shapes("Objekt 1").OLEFormat.Verb Verb:=xlVerbOpen
If Err.Number <> 0 Then
MsgBox "Das Objekt konnte nicht geöffnet werden."
End If
On Error GoTo 0
FAQ: Häufige Fragen
1. Kann ich auch andere Dateiformate öffnen?
Ja, du kannst verschiedene Dateiformate öffnen, solange sie als eingebettete Objekte in Excel vorhanden sind.
2. Welche Excel-Version benötige ich für diese Makros?
Die beschriebenen Makros funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und später.
3. Wo finde ich weitere Informationen zu VBA?
Schau im Objektkatalog in der Excel-Hilfe nach, um mehr über die verfügbaren Objekte und deren Methoden zu erfahren.
