AW: Image in UF Hyperlink zuweisen
14.12.2009 12:38:20
Tino
Hallo,
für Excel Dateien müsste dies einfach über
Workbooks.Open "C:\Microsoft\Excel\test.xls" gehen.
sonst versuche mal dies,
kommt in die Userform oder als Public Declare ... und Public Const ... in ein Modul
Private 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
Const SW_MAXIMIZE = 3 ' Maximiert öffnen
Const SW_MINIMIZE = 6 ' Minimiert öffnen
Const SW_NORMAL = 1 ' Normal öffnen
Private Sub Image1_Click()
Dim strPfad As String
strPfad = "C:\Microsoft\Excel\test.xls" 'Pfad zur Datei
Call ShellExecute(0, "open", strPfad, "", "", SW_MAXIMIZE)
End Sub
Gruß Tino