Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: integrierte PDF-Datei per VBA öffnen

integrierte PDF-Datei per VBA öffnen
22.01.2015 09:22:46
Peet
Halli Hallo,
habe folgendes Problem:
Ich habe in ein Tabellenblatt meiner Excel-Mappe ein Objekt (PDF-Datei) eingefügt und diese "Anleitung" genannt.
Nun würde ich gerne per VBA-Makro gezielt die PDF-Datei öffnen.
Habt ihr einen Tipp, mit welchem Befehl ich das machen könnte?
Ich wäre euch sehr dankbar!
Gruß Peet

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: integrierte PDF-Datei per VBA öffnen
22.01.2015 09:57:27
Nepumuk
Hallo Peet,
einfach so:
Public Sub Test()
Tabelle1.OLEObjects(1).Verb Verb:=xlPrimary
End Sub

Den Objektnamen der Tabelle und den Index des OLEObjektes musst du gegebenenfalls anpassen.
Gruß
Nepumuk

AW: integrierte PDF-Datei per VBA öffnen
22.01.2015 10:00:25
fcs
Hallo Peet,
Sub Anleitung_Oeffnen_1()
'Eingebettes PDF-Objekt öffnen
Dim objShape As Shape
Set objShape = Worksheets("Tabelle1").Shapes("Anleitung")
objShape.OLEFormat.Verb
End Sub

Gruß
Franz

Anzeige
AW: integrierte PDF-Datei per VBA öffnen
22.01.2015 10:09:01
Peet
Top, funktioniert!
Vielen lieben Dank! :)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Integrierte PDF-Datei per VBA öffnen


Schritt-für-Schritt-Anleitung

Um eine integrierte PDF-Datei in Excel per VBA zu öffnen, folge diesen Schritten:

  1. Öffne Excel und lade die Arbeitsmappe, in der sich die PDF-Datei befindet.

  2. Füge ein neues Modul hinzu:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke im Menü auf Einfügen > Modul.
  3. Kopiere und füge den folgenden Code in das Modul ein:

    Public Sub PDF_Oeffnen()
       Tabelle1.OLEObjects(1).Verb Verb:=xlPrimary
    End Sub

    Stelle sicher, dass du den Objektnamen und den Index entsprechend anpasst, falls nötig.

  4. Starte das Makro:

    • Schließe den VBA-Editor und kehre zu Excel zurück.
    • Drücke ALT + F8, wähle PDF_Oeffnen und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"
    Wenn du den Fehler erhältst, stelle sicher, dass der Name des OLE-Objekts (z.B. "Anleitung") korrekt ist und dass es sich im richtigen Arbeitsblatt befindet.

  • Lösung: Falscher Index
    Überprüfe, ob du den richtigen Index für das OLE-Objekt verwendest. Die Indizes beginnen bei 1.


Alternative Methoden

Wenn du eine alternative Methode ausprobieren möchtest, kannst du die folgende Variante verwenden:

Sub Anleitung_Oeffnen_1()
    ' Eingebettes PDF-Objekt öffnen
    Dim objShape As Shape
    Set objShape = Worksheets("Tabelle1").Shapes("Anleitung")
    objShape.OLEFormat.Verb
End Sub

Diese Methode nutzt die Shapes-Eigenschaft, um das PDF-Objekt gezielt anzusprechen.


Praktische Beispiele

Ein Beispiel für die Verwendung des Codes könnte folgendermaßen aussehen:

Sub PDF_Oeffnen()
    ' Öffne das erste PDF-Objekt in Tabelle1
    Tabelle1.OLEObjects(1).Verb Verb:=xlPrimary
End Sub

Hier wird das erste OLE-Objekt auf Tabelle1 geöffnet. Wenn du mehrere PDF-Dateien hast, kannst du den Index entsprechend anpassen.


Tipps für Profis

  • Verwende die OLEObjects-Sammlung, um gezielt auf verschiedene Objekte zuzugreifen.
  • Dokumentiere deinen Code, um den Überblick zu behalten, besonders wenn du mehrere PDF-Dateien in einer Arbeitsmappe verwaltest.
  • Teste den Code regelmäßig, um sicherzustellen, dass alles ordnungsgemäß funktioniert, insbesondere wenn Änderungen an der Arbeitsmappe vorgenommen werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere PDF-Dateien in einer Mappe öffnen?
Du kannst mehrere Makros erstellen, die jeweils auf unterschiedliche OLE-Objekte zugreifen. Achte darauf, die Indizes entsprechend anzupassen.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, allerdings könnten bestimmte Funktionen in älteren Versionen nicht verfügbar sein. Achte darauf, deine Excel-Version zu überprüfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige