PDF Vorschaufenster

[Frogger1986]

Hallo liebes Forumteam

Ich habe meine Rechnungen Digitalisiert. Mit PQ habe ich mir die Dateien (.pdf) in meine Exceltabelle aufgenommen und sie Verlinkt, um sie Filtern und bei Bedarf direkt aufrufen zu können! Jetzt hätte  ich gern noch zusätzlich ein "Vorschaufenster" für die PDF- Dateien. Einen teilerfolgreichen versuch, via VBA hab ich auch schon, in dem ich die Dateien einfach einbette, aber das ist sehr unschön und  ich hab die Codezeile die das vorhergehende Bild löscht noch nicht. Jetzt meine Frage und Bitte an euch, ob jemand eine Bessere Lösung dafür hat bzw. überhaupt eine Lösung!?

[Frogger1986]

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$K$1" Then

On Error GoTo Einfügen
   
    Worksheets("Rechnungen").DrawingObjects.Select
    Selection.Delete
Line1:
    Range("K3").Select
    pfad = Worksheets("Rechnungen").Range("L1")
    Set pdf = ActiveSheet.OLEObjects.Add(Filename:=pfad)
End If
Exit Sub

Einfügen: GoTo Line1

End Sub


Soweit Klappts mit einbetten.. hat jemand noch ne andere Idee??

[00202]

Hallo, :19:

eine weitere Möglichkeit ist das Dokument in einer UserForm mit einem Webbrowsersteuerelement darzustellen:

[attachment=18063]


Habe nur den Pfad geändert.

Wenn Du in K1 eine Zahl eingibst (welche auch vorhanden ist) wird die PDF-Datei angezeigt. Klickst Du wieder in K1 wird die UserForm geschlossen. Das kannst Du natürlich an Deine Bedürfnisse anpassen. :21:

[Frogger1986]

Vielen Dank! Das ist Perfekt!