Create a dynamic hyperlink in a picture.

Hello forum,

Can someone help me create a dynamic hyperlink in a picture? Essentially what I have is a drop down box with a list of games. On the same sheet, I have a picture with the Wikipedia icon. What I would like to do is select the game from from the drop down list and be able to click on the Wikipedia picture on the sheet and have my browser open to the Wikipedia page of the game. 

Hopefully I've explained this pretty clearly. Thanks in advance for any help. 

|

Hi,

Since you need instructions on how to create
a dynamic hyperlink in Excel, I request you to post this query in following TechNet forum for better suggestion:
http://social.technet.microsoft.com/Forums/en/excel/threads

If you have any questions related to Office products, you can always reply and I’ll be happy to assist you.

Thank you.

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

Hi,

take a look here...

http://youtu.be/ZRRqJf_Z3k0

XXXXXXXXXXXXXXXXX

data on sheet1,

right click on sheet1 tab, select ViewCode and paste in...

Private Sub Worksheet_Change(ByVal Target As Range)
'picture in cell A1
'drop down in cell D2
'define name myNames in range B3:B20

'URL address in range A3:A20

On Error Resume Next
Dim v As Variant
Dim p As Picture
Set rng = ActiveSheet.Range("A1") '<< destin cell pic.
If Not Intersect(Target, Range("D2")) Is Nothing Then '<< cell, drop down list
Application.ScreenUpdating = False
For Each p In ActiveSheet.Pictures
If Not Intersect(p.TopLeftCell, rng) Is Nothing Then p.Delete
Next
Set r = Range("myNames").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
v = r.Offset(, -1).Value
Set p = ActiveSheet.Pictures.Insert(v)
With p
.Height = rng.Height
.Width = rng.Width
.Top = rng.Top
.Left = rng.Left
End With
Else
MsgBox "wrong"
End If
Application.ScreenUpdating = True
End If
End Sub

press Alt+Q to close Visual basic

-----------------------------
Office 365 on Windows 10

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

Thanks for the help TasosK. Unfortunately, it's not exactly what I'm trying to do. What I need is for the picture itself to be clickable, not just a title. 

Thanks for the help.

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

-----------------------------
Office 365 on Windows 10

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info


Last updated February 26, 2018 Views 608 Applies to: