Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

PDF in Userform

Betrifft: PDF in Userform von: Gregor Myalski
Geschrieben am: 24.07.2008 14:43:59

Hallo Leute,

Ich habe eine Userform gebaut, ein CommandButton öffnet ein Pdf. Auf meinem anderen Rechner kriege ich das Pdf nichtauf weil mein acrobat reade in einem anderem Verzeichnis drin steckt. Gibt es eine Möglichkeit, das ich meine Userform nicht sage mit welchem rogramm ich das pdf öffnen muss. sondern das er nur die datei öffnet ala hyperlink?

Danke

Beste Grüße

Gregor

  

Betrifft: AW: PDF in Userform von: Kawensmann
Geschrieben am: 24.07.2008 14:54:32

Hallo,

folgendes habe ich mir mal im Netz zusammengesucht um den Reader-Pfad zu finden:

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002


Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
                                      ByVal hKey As Long, _
                                      ByVal lpSubKey As String, _
                                      ByVal dwReserved As Long, _
                                      ByVal samDesired As Long, _
                                      phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" ( _
                                         ByVal hKey As Long, _
                                         ByVal lpValueName$, _
                                         ByVal lpdwReserved As Long, _
                                         lpdwType As Long, _
                                         lpData As Any, _
                                         lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" ( _
                                     ByVal hKey As Long) As Long

Function GetRegistryStr(hRegRoot As Long, ByVal sSubKey As String, ByVal sKey As String) As  _
String
    Dim hSubKey As Long, regType As Long, sRet As String, ret As Long, n As Long

    ret = RegOpenKeyEx(hRegRoot, sSubKey, 0, &H3F, hSubKey)
    If ret <> 0 Then Exit Function
    n = 255
    sRet = String(n, 0)
    ret = RegQueryValueEx(hSubKey, sKey, 0, regType, ByVal sRet, n)
    If ret = 0 And regType = 1 Then
        GetRegistryStr = Left$(sRet, n - 1)
    End If
    ret = RegCloseKey(hSubKey)

End Function

Function PDFViewer() As String
    PDFViewer = GetRegistryStr(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\ _
App Paths\AcroRd32.exe", "Path")
    If PDFViewer <> "" Then PDFViewer = PDFViewer + "\AcroRd32.exe"
End Function



Gruß
Kawensmann


  

Betrifft: AW: PDF in Userform von: Gregor Myalski
Geschrieben am: 24.07.2008 15:28:13

Hallo Kawensmann,

Fehler beim kompilieren:

Nach end sub, ..... können nur kommentare stehen. Bring ich den code falsch ein oder was passiert da.

danke

best

gregor


  

Betrifft: AW: PDF in Userform von: Kawensmann
Geschrieben am: 25.07.2008 10:41:43

Die Deklarationen gehören an den Anfang des Moduls.


  

Betrifft: AW: PDF in Userform von: Jürgen
Geschrieben am: 24.07.2008 22:10:55

Hallo Gregor,

wie wäre es mit

Shell "cmd /C""d:\temp.pdf"""

bzw.

Shell "cmd /C""" & DateiPfadUndName & """"

wenn der Dateiname in der Variablen "DateiPfadUndName" gespeichert ist.

Gruß, Jürgen


 

Beiträge aus den Excel-Beispielen zum Thema "PDF in Userform"