hatte mich mit meiner Frage zwar schon in nem Thread im Excelcenter reingehängt,
der läuft aber nun in ne ganz andre Richtung, als ich eingangs vermutete.
http://www.excel-center.de/foren/read.php?2,6665
Deswegen frag ich einfach nochmal explicit hier:
Ausgangssituation: eine Userform mit Label, Labelcaption irgendeine URL.
Bei Label_Click() soll der Standardbrowser angehen und auf den Link navigieren.
Ein Level: API-DAU würd' ich mir grade wünschen ... *gg*
dacht ich kann das 'einfach mal so' ummodeln,
geht aber nicht. Hat hier einer nen Plan, wie's richtig lauten müsste ?
thx Nancy
--
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
Private Sub Userform_Initialize()
Label1.Caption = "www.google.de"
End Sub
Private Sub Label1_Click()
Dim x As Long
'Form1.hwnd ?
x = ShellExecute(Form1.hwnd, "Open", Label1.Caption, "", App.Path, 1)
End Sub