mit diesem super Makro von Tino kann man aus Excel heraus eine PDF Datei öffnen:
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nshowcmd As Long) As Long
Public hWnd As Long
Public Const SW_HIDE = 0 ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3 ' Maximiert öffnen
Public Const SW_MINIMIZE = 6 ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4
Public Function DateiÖffnen(Aktion As String, Pfad As String, _
Ansicht As String) As Boolean
Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function
Sub öffne_Datei()
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = "C:\fehler.jpg"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub
Es klapppt super, nur die PDF Datei wird bei mir mit 133% Vergrößerung dargestellt und man kann das ganze Blatt nicht sehen. Gibt es vielleicht eine Möglichkeit, dass Excel den Acrobat Reader "zwingt" die Datei nur mit 100% Vergrößerung darzustellen? Kann man außerdem von Excel heraus die Lesezeichen im Reader einschalten? Besten dank für eure Hilfe.
Gruß
Martin