Textlink anzeigen, um eine bestimmte PDF-Seite aus Excel zu öffnen

Question

Ich habe online einen VBA-Code gefunden, der eine interne (gemeinsam genutzte) PDF-Dokumentseite in IE öffnet (z. B. auf Seite 8 der PDF-Datei). Ich möchte Text in der Zelle anzeigen, auf den ein Benutzer klicken kann (z. B. "Klicken Sie hier, um anzuzeigen").

Problem: Die Zelle zeigt zur Zeit '0' an und ich muss zur Funktionsleiste gehen und [Enter] drücken, um auszuführen.

Excel Version: 2003

Funktionsaufruf:

=GoToPDFpage("S:\...x_2011.pdf",8) 

VBA-Code:

Function GoToPDFpage(Fname As String, pg As Integer) 
Set IE = CreateObject("InternetExplorer.Application") 
With IE 
.Navigate Fname & "#page=" & pg 
.Visible = True 
End With 
End Function 

: EDIT:

Ich konnte Text anzeigen, aber es ist immer noch kein Link wie ich es wollte.

="Click to view" & GoToPDFpage("S:\...x_2011.pdf",8) 

Vielen Dank für Ihre Hilfe.

Answer 1

Versuchen Sie Menü-> Daten-> Datenvalidierung. In der zweiten Registerkarte können Sie Ihre Nachricht schreiben.

Answer 2

Wenn Sie nicht über eine hochkomplexe Arbeitsmappe/Arbeitsblatt Sie folgende versuchen könnte:

Drehen Sie den „Click to view“ Zelle in einen Hyperlink mit folgenden Eigenschaften.

• Machen Sie es sich Punkt selbst
• Der Text in der Zelle muss die Zeichenfolge Seite = und die Nummer, die Sie, was der pdf zu öffnen in. Eg .: Seite = 8 immer

gehen Sie dann zum workseet Modul und fügen Sie den folgenden Code ein:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 

    If Left(ActiveCell.Value, 4) = "Page" Then 

     GoToPDFpage Range("A1").Value, Mid(ActiveCell.Value, 6) 
     'This code asumes that the file address is writen in the cell A1 

    End If 
    ' 
End Sub 
' 

Der oben beschriebene Code wird jedes Mal ausgelöst, wenn Sie einen Hyperlink im Arbeitsblatt ausführen.
Da der Hyperlink immer auf sich selbst zeigt, hat der "Activecell.Value" immer die Seitennummer, die Sie öffnen möchten.

Ich nehme an, dass Sie die Dateiadresse in die Zelle A1 setzen können. Sie können diesen Teil so ändern, dass er auf eine beliebige andere Zelle zeigt. (einschließlich: Die Zelle rechts neben dem aktuellen Hyperlink usw.).

Dies ist möglicherweise nicht die beste Option, aber wenn Sie nur eine schnelle Funktion in ein paar Zellen benötigen, könnte es genug sein.

Hoffe es hilft!

---

EDIT: Um jeden HLINK Referenz auf sich selbst zu machen, können Sie alle Zellen auszuwählen, in dem Sie die Links und dann diese Prozedur auszuführen:

Sub RefHLink() 
    Dim xCell As Range 

    For Each xCell In Selection 

     ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="", SubAddress:= _ 
     xCell.Address, ScreenTip:="Click Here", TextToDisplay:="Page=" 
    Next xCell 

End Sub 

Answer 3

, wie etwa im Stich gelassen excel ein schreiben Stapeldatei dann läuft es?

* edit Wege zu pdf und AcroRd32.exe

Sub batfile() 
    Dim retVal 
    filePath = "path\pdf.bat" 
    pg = 2 
    Open filePath For Output As #1 
    Print #1, "Start /Max /w " & Chr(34) & "Current E-book" & Chr(34) & " " & Chr(34) & "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & Chr(34) & " /a " & Chr(34) & "page=" & pg & Chr(34) & " " & Chr(34) & "H:\Documents\RPG\Dragonlance\New folder\Sample File.pdf" & Chr(34) & "" 
    Close #1 
    retVal = Shell(strFilePath) 
End Sub