Hyperlink userform

[Leksie]

Can anyone tell me how to include an hyperlink using a label in an userform?
Simply copying the url in the caption field of a label doesn't work!

Thanks,
Alex

 

[Mike H]

Hi,

You can use a workaround.
Put some text in the label and format it to 'look like' a Hyperlink i.e.
blue, underlined and in an appropriate font.
Right click the label and view code and paste the code below in.

The down side is that when you hover over the link you don't get the hand
symbol but if you Google for one you should find a custom cursor and you can
then select custom-cursor(15) from the label dialogbox and your done.

Private Sub Label1_Click()
Link =
"http://www.microsoft.com/office/com...rosoft.public.excel.programming&lang=en&cr=US"
On Error GoTo TheEnd
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
TheEnd:
MsgBox "Cannot open Hyperlink"
End Sub

Mike

 

[Leksie]

Thanks a lot Mike!

Hi,

You can use a workaround.
Put some text in the label and format it to 'look like' a Hyperlink i.e.
blue, underlined and in an appropriate font.
Right click the label and view code and paste the code below in.

The down side is that when you hover over the link you don't get the hand
symbol but if you Google for one you should find a custom cursor and you can
then select custom-cursor(15) from the label dialogbox and your done.

Private Sub Label1_Click()
Link =
"http://www.microsoft.com/office/com...rosoft.public.excel.programming&lang=en&cr=US"
On Error GoTo TheEnd
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
TheEnd:
MsgBox "Cannot open Hyperlink"
End Sub

Mike