Hyperlink in text

[Jos Vens]

Hi,

can anyone tell me how to convert a text-string into a hyperlink?

This code does not work

Dim vHyperlink As Hyperlink
vHyperlink = "http://www.puntenboek.be/Download/Setup.exe"
vHyperlink.Hyperlinks(1).Follow

Thanks
Jos Vens

 

[Tom Ogilvy]

Turn on the Macro recorder and add a hyperlink manually. Turn off the macro
recorder and adjust to fit your situation.

 

[Jos Vens]

Tom,

Problem is I want to use a variable in stead of a cell. Even using the
macroeditor gets me no further, but using a cell, made up as hyperlink
works. I prefer however a variable

Thanks
Jos

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 2005-04-20 door Jos.
'

'
ActiveCell.FormulaR1C1 = "http://www.puntenboek.be"
Range("A2").Select
End Sub

 

[Tom Ogilvy]

sStr = "http://www.puntenboek.be"
ActiveWorkbook.FollowHyperlink Address:=sStr

 

[keepITcool]

your code assumes autocorrect is on and configured to
'correct typed url text to hyperlinks.
i wouldnt assume that.


Following is adapted from recording a simple Insert Hyperlink command
(as suggested by Tom) (Invoegen Hyperlink)

ActiveSheet.Hyperlinks.Add Anchor:=activecell, _
Address:="http://www.puntenboek.be/Download/Setup.exe", _
TextToDisplay:="Klik HIER om te downloaden!"


Cheerz.
(en wanneer zien we jij bij NL.Office.Excel?)


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Jos Vens wrote :

 

[Jos Vens]

Thanks a lot Tom!

Jos

sStr = "http://www.puntenboek.be"
ActiveWorkbook.FollowHyperlink Address:=sStr

 

[Jos Vens]

Hallo,

NL.Office.Excel is me onbekend omdat ik hier heel veel informatie krijg. Is
dit ook een nieuwsgroep en is die even goed?

Groeten uit België
Jos

 

[keepITcool]

zelfde server (of direct bij msnews.microsoft.com)
groep: microsoft.public.nl.office.excel
taal.. nederlands

ook druk, goed en snel.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Jos Vens wrote :