Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
excel2000
i'm using a cell with a hyperlink to a website and 'calllng' it with a command button, Private Sub CommandButton3_Click() Range("o17").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ActiveWindow.WindowState = xlNormal End Sub i change the value of the website url based on the value entered in another cell Range("O17").Select Selection.Hyperlinks(1).Address = "http://www.ivolatility.com/options.j?ticker=" & ActiveSheet.Range("stock_symbol").Value & ":NYSE&R=1&period=24&chart=2&vct=" this works ok but i would prefer not to have the cell containing the hyperlink not visible to the user but the only way i have found to implement the hyperlink is first 'insert' the hyperlink into a cell, then change the value of the hyperlink address programmatically, this always leaves the original entered url visible for that cell is there some other way to have a hyperlink, whose address i can change in vba, that is not visible to the user?? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
just use a hyperlink that points to itself then trap FollowHyperlink event ie: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Select Case Target.Range Case [b3] ActiveWorkbook.FollowHyperlink "http://www.microsoft.com" End Select End Sub keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool "bbxrider" wrote: excel2000 i'm using a cell with a hyperlink to a website and 'calllng' it with a command button, Private Sub CommandButton3_Click() Range("o17").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ActiveWindow.WindowState = xlNormal End Sub i change the value of the website url based on the value entered in another cell Range("O17").Select Selection.Hyperlinks(1).Address = "http://www.ivolatility.com/options.j?ticker=" & ActiveSheet.Range("stock_symbol").Value & ":NYSE&R=1&period=24&chart=2&vct=" this works ok but i would prefer not to have the cell containing the hyperlink not visible to the user but the only way i have found to implement the hyperlink is first 'insert' the hyperlink into a cell, then change the value of the hyperlink address programmatically, this always leaves the original entered url visible for that cell is there some other way to have a hyperlink, whose address i can change in vba, that is not visible to the user?? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
hi thanx for the reply not exactly sure how that works, do you set the link url address the same way as i have been? but will experiment bbxrider *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
the trick:
the hyperlink in the sheet should point to itself, it's just there to trigger the followhyperlink event. where you can jump to anything you like without the user seeing it. programmatically adding a selfpointing hl: Sub ff() Dim r As Range Set r = [b3] r = "ClickMe" r.Hyperlinks.Add r, "", r.Address End Sub above code works in xl97 as it avoids the "TextToDisplay argument. when coding for newer versions only, use: Sub ff() Dim r As Range Set r = [b3] r.Hyperlinks.Add r, "", r.Address,"ClickMe" End Sub My example FollowHyperlink handler in previous post must be (hard)coded based on the hyperlink's anchor However with a bit of ingenuity you could easily use the cell's contents for a select case like Select case Hyperlink.Range.Text case "ClickMe" etc OR.. or use the commenttext in the same cell... (hide the comment indicators in activesheet) activeworkbook.followhyperlink hyperlink.range.comment.text many ways to go to Rome... keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool robert betz wrote: hi thanx for the reply not exactly sure how that works, do you set the link url address the same way as i have been? but will experiment bbxrider *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
thanks again for the help, am having trouble keeping up with newsgroup, its only giving me the current day, so if i miss a reply then the only back to it seems to be thru developersdex bbxrider *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
programming a hyperlink
dl a real newsreader like XNEWS (freeware & lots safer than OE)
then setup to server msnews.microsoft.com keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool robert betz wrote: thanks again for the help, am having trouble keeping up with newsgroup, its only giving me the current day, so if i miss a reply then the only back to it seems to be thru developersdex bbxrider *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Paste Hyperlink result as working hyperlink | Excel Worksheet Functions | |||
Can't make hyperlink function work for hyperlink to website | Excel Worksheet Functions | |||
Moving rows with Hyperlink doesn't move hyperlink address | Excel Discussion (Misc queries) | |||
Intra-workbook hyperlink: macro/function to return to hyperlink ce | Excel Discussion (Misc queries) | |||
reading html when hyperlink address not hyperlink text diplayed | Excel Programming |