Hyperlink Multiple Images At Once?

**vegas12** · 02-14-2009, 02:11 AM

Hi all,

I am completely stumped with this problem and not sure where to begin.

I have about 20,000 hyperlinks in my excel sheet that I would like to assign to individual images.

For example, how do I link an image in cell A2, using a hyperlink from cell B2?

I know that if I wanted to simply hyperlink text, I would use =HYPERLINK(B2,"text"), but this reference won't work for images.

I also know I can right click on the image and insert a hyperlink that way, but this obviously isn't practical because I am working with over 20,000 links.

Any help would be appreciated with figuring out this monster of a task, thank you in advance!

**mrice** · 02-14-2009, 10:32 AM

Do the shape numbers correlate in any way with the row numbers? If so, it should be possible to create a macro loop using a construct similar to ..

ActiveSheet.hyperlinks.add Anchor:=ActiveSheet.Shapes(1), Address:=    range("B1").Hyperlinks(1).Address

**martindwilson** · 02-14-2009, 11:50 AM

where are the images? are they in the workbook?

**vegas12** · 02-14-2009, 03:59 PM

Yes, the images are in the worksheet next to the link I want to associate them with and the picture numbers correlate with the row numbers.

mrice, thank you for the macro but would you mind explaining how I implement it? I tried just copy and pasting it into a new module in VBA and trying to run the macro but that didn't work. lol, forgive me as I'm a newbie when it comes to macros.

**martindwilson** · 02-14-2009, 06:04 PM

so the links are going to where? some url? some other place in workbook?
sorry im having trouble visualising it
got an example of a couple?

**vegas12** · 02-14-2009, 06:36 PM

The links are going to websites. I want to have my images link to websites that are defined in another column.

Basically I want to use the =HYPERLINK(linklocation,"friendlytext") formula but instead of using "friendlytext" I want to use images.

Please see the attached excel file.
I was able to make it work with this sample because I right clicked on the image and inserted a hyperlink that way, but I obviously can't do that for 20,000 images.

**Leith Ross** · 02-14-2009, 07:16 PM

Hello vegas12,

Do want hyperlinks in column "A" or only the friendly text? Does not make much sense to have hyperlinks in one column and pictures with the same hyperlinks in the adjacent column.

**shg** · 02-14-2009, 07:44 PM

If you want to add the cell contents in col A to the images in col B as hyperlinks,

Sub Macro3()
    Dim shp     As Shape

    For Each shp In ActiveSheet.Shapes
        ActiveSheet.Hyperlinks.Add Anchor:=shp, _
                                   Address:=shp.TopLeftCell.Offset(, -1).Text
    Next shp
End Sub

**vegas12** · 02-15-2009, 02:39 AM

shg, that macro is exactly what I needed to complete the task! Thank you to you, and everyone else that helped out, and sorry if it seemed a little confusing to explain. I'm now able to complete my project!

**shg** · 02-15-2009, 01:47 PM

You’re welcome. Would you please mark the thread as Solved?

Click the Edit button on your first post in the thread

Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes