Pdf in webbrowser einbinden
19.09.2017 16:09:17
Jens
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?