Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
I have two cell that are joined via concatenation. Together they
produce a hypertext link. The cell actually displays: "ACTIVATE WWW LINK." The cell actually contains : =HYPERLINK(LOOKUP(H20,'DOWNLOAD-CALC'!FM3:FM27,'DOWNLOAD-CALC'!FN3:FN27)&E16,"ACTIVATE WWW LINK") And the two concatatated cells produce: http://secinfo.com/$/search.asp?find=MTSX The link point-too address's and the stocks ticker symbol constantly change. I want to activate the link using a visual or image object (button). Can you use the assign hypertext link function when you right click a visual object in excel and format the hypertext cell in a manor that connects the two cells referenced componments and functions as a link? Or do I need a VBA macro that activate that cell and thus fetch the requested page in the Safari browser on my computer. The macro recorder will allow me to record the process but does not fetch the page when played back. I would think that all I would need for the VBA macro to do is click or activate the cell? Can't find a way to do that. Tried Activate Cell address. Nothing I have searched several forums for something simular. Became more time effective to ask. Thanks for any suggestions. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
You can assign a macro to the picture
Sub HyperLinkedPicture Dim SourceWS as Worksheet Set SourceWS =Worksheets("DOWNLOAD-CALC") With ActiveSheet ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3:FM27) ,SourceWS.Range("FN3:FN27")) & .Range("E16") End With End Sub NickHK "MIKESX" wrote in message oups.com... I have two cell that are joined via concatenation. Together they produce a hypertext link. The cell actually displays: "ACTIVATE WWW LINK." The cell actually contains : =HYPERLINK(LOOKUP(H20,'DOWNLOAD-CALC'!FM3:FM27,'DOWNLOAD-CALC'!FN3:FN27)&E16 ,"ACTIVATE WWW LINK") And the two concatatated cells produce: http://secinfo.com/$/search.asp?find=MTSX The link point-too address's and the stocks ticker symbol constantly change. I want to activate the link using a visual or image object (button). Can you use the assign hypertext link function when you right click a visual object in excel and format the hypertext cell in a manor that connects the two cells referenced componments and functions as a link? Or do I need a VBA macro that activate that cell and thus fetch the requested page in the Safari browser on my computer. The macro recorder will allow me to record the process but does not fetch the page when played back. I would think that all I would need for the VBA macro to do is click or activate the cell? Can't find a way to do that. Tried Activate Cell address. Nothing I have searched several forums for something simular. Became more time effective to ask. Thanks for any suggestions. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
Hi NickHK: Thank you for your assistance. Here is what I put into the spreadsheet marcos. Sub HyperLinkedButton() Dim SourceWS As Worksheet Set SourceWS = Worksheets("DOWNLOAD-CALC") With ActiveSheet ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3: FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16") End With End Sub Your code seems short and sweet. I don't know if it works as yet, because I am getting a compile error that highlights the"&" and says it was expecting an "=" sign.??? Any ideas? I am on a Mac running Microsoft Office 2004. OSX 10.3.9. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
Seems the code became unfortunately split. This is all a single line however
it look in your reader: ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3: FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16") NickHK "MIKESX" wrote in message oups.com... Hi NickHK: Thank you for your assistance. Here is what I put into the spreadsheet marcos. Sub HyperLinkedButton() Dim SourceWS As Worksheet Set SourceWS = Worksheets("DOWNLOAD-CALC") With ActiveSheet ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3: FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16") End With End Sub Your code seems short and sweet. I don't know if it works as yet, because I am getting a compile error that highlights the"&" and says it was expecting an "=" sign.??? Any ideas? I am on a Mac running Microsoft Office 2004. OSX 10.3.9. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
Hi Nick:
All one line, same error. Still wants an equal sign where the amperzand is. Michael Seems the code became unfortunately split. This is all a single line however it look in your reader: ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3: FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16") |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate web link via image object
The only way I get that error is NOT putting ALL the text on one line. But
does work ? Dim TempStr As String With ActiveSheet TempStr = Application.WorksheetFunction.Lookup(.Range("H20") ,SourceWS.Range("FM3:FM27" ),SourceWS.Range("FN3:FN27"))&.Range("E16") .FollowHyperlink TempStr End With By the way it's advisable to VLookUp instead of LookUp. NickHK "MIKESX" wrote in message oups.com... Hi Nick: All one line, same error. Still wants an equal sign where the amperzand is. Michael Seems the code became unfortunately split. This is all a single line however it look in your reader: ThisWorkbook.FollowHyperlink Application.Worksheetfunction.Lookup(.Range("H20") ,SourceWS.Range("FM3: FM27"),SourceWS.Range("FN3:FN27"))&.Range("E16") |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Image - Object with an embedded link to a cell | Excel Discussion (Misc queries) | |||
Activate object | Excel Worksheet Functions | |||
Activate Object question | Excel Worksheet Functions | |||
Activate Object question | Excel Worksheet Functions | |||
PASTE LINK option not available when I select PASTE SPECIAL to link an image in Excel to a Word document. | Links and Linking in Excel |