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

Pdf in webbrowser einbinden

Forumthread: Pdf in webbrowser einbinden

Pdf in webbrowser einbinden
19.09.2017 16:09:17
Jens
Hallo,
ich muss aus einer Userform heraus eine PDF-öffnen.Die PDf wird aber nur geöffnet wenn ich die Funktion der Userform auf Showmodal auf False setze.
Ich hätte nun daran gedacht die PDF in einer USerform anzuzeigen.
Leider funktioniert es mir nicht.
das wäre der Code den ich gefunden habe.

Dim strFile As String
strFile = Application.GetOpenFilename("PDF Dateien (*.pdf),*pdf")
If strFile = "Falsch" Then Exit Sub
WebBrowser1.Navigate strFile

Ich bräuchte es aber so, dass der Link aus der Zelle übernommen wird. Ohne Showmodal geht das so.

Dim Zelle As Range
Dim link As String
Dim i As Integer
i = Worksheets("Tabelle2").Cells(5, 1).Value
With Worksheets("Aufstellung")
On Error Resume Next
link = .Cells(i, 39).Value
ActiveWorkbook.FollowHyperlink (link), NewWindow:=True
End With

Nun bräuchte ich eine Mischung aus den beiden codes. Sprich den unteren Code so angepasst das die PDF im Webbrower angezeigt wird.
Hat hierzu jemand eine Hilfestellung für mich?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pdf in webbrowser einbinden
23.09.2017 12:58:42
ChrisL
Hi Jens
Ersetze
ActiveWorkbook.FollowHyperlink (link), NewWindow:=True
durch
WebBrowser1.Navigate link
cu
Chris
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

PDF in Webbrowser einbinden mit Excel VBA


Schritt-für-Schritt-Anleitung

Um eine PDF-Datei in einer Userform mittels eines Webbrowser-Steuerelements anzuzeigen, kannst Du folgende Schritte ausführen:

  1. Userform erstellen:

    • Öffne den VBA-Editor (Alt + F11).
    • Füge eine neue Userform hinzu.
    • Platziere ein WebBrowser-Steuerelement auf der Userform. (Du kannst es über die Toolbox hinzufügen, wenn Du das Microsoft Internet Controls-Objekt registriert hast.)
  2. Code implementieren:

    • Füge den folgenden VBA-Code in das Codefenster Deiner Userform ein:
    Dim strFile As String
    Dim Zelle As Range
    Dim link As String
    Dim i As Integer
    
    ' Hier wird die PDF-Datei geladen
    Sub LadenPDF()
       i = Worksheets("Tabelle2").Cells(5, 1).Value
       With Worksheets("Aufstellung")
           On Error Resume Next
           link = .Cells(i, 39).Value
           WebBrowser1.Navigate link
       End With
    End Sub
  3. Userform anzeigen:

    • Stelle sicher, dass Du die Userform mit Show oder ShowModal = False aufrufst, je nach Deinen Bedürfnissen.

Häufige Fehler und Lösungen

  • Fehler: WebBrowser zeigt nichts an

    • Lösung: Überprüfe den Link in der Zelle, um sicherzustellen, dass er korrekt ist. Stelle sicher, dass das WebBrowser-Steuerelement richtig konfiguriert ist.
  • Fehler: "Falsch" beim Öffnen

    • Lösung: Stelle sicher, dass der Befehl Application.GetOpenFilename nicht die Rückgabe "Falsch" liefert. Verwende eine andere Methode zur Auswahl der Datei, falls nötig.

Alternative Methoden

Wenn das WebBrowser-Steuerelement nicht verfügbar ist oder Du eine andere Lösung suchst, kannst Du auch versuchen, die PDF in einem externen Browser zu öffnen. Hier ist ein Beispiel:

ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True

Diese Methode öffnet die PDF in deinem Standard-Webbrowser, anstatt sie in einer Userform anzuzeigen.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du den Code in einer Userform nutzen kannst:

  1. Erstelle eine Userform mit einem Button und einem WebBrowser-Steuerelement.
  2. Verlinke den Button mit dem LadenPDF-Sub.
Private Sub CommandButton1_Click()
    LadenPDF
End Sub

Wenn Du nun auf den Button klickst, wird die PDF-Datei im WebBrowser angezeigt.


Tipps für Profis

  • Verwende error handling: Implementiere On Error GoTo für eine bessere Fehlersuche.
  • Verstecke die Userform: Du kannst die Userform im Hintergrund laden und nur das WebBrowser-Steuerelement anzeigen.
  • Optimiere die Benutzeroberfläche: Gestalte die Userform benutzerfreundlich, indem Du Schaltflächen zum Schließen oder Navigieren hinzufügst.

FAQ: Häufige Fragen

1. Kann ich auch andere Dateiformate anzeigen?
Ja, das WebBrowser-Steuerelement kann auch andere Formate wie HTML anzeigen. Für PDFs ist es jedoch am besten geeignet.

2. Warum funktioniert das WebBrowser-Steuerelement manchmal nicht?
Es könnte an den Sicherheitseinstellungen von Excel oder dem Webbrowser liegen. Überprüfe die Einstellungen und stelle sicher, dass ActiveX-Steuerelemente aktiviert sind.

3. Muss ich etwas Besonderes beachten, wenn ich diese Methode in einer älteren Excel-Version verwende?
Ja, einige Funktionen und Steuerelemente sind möglicherweise nicht in älteren Versionen verfügbar. Stelle sicher, dass Du Excel 2010 oder neuer verwendest, um die besten Ergebnisse zu erzielen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige