See Extract and Place Hyperlink from Shape into cell to the right
http://www.mvps.org/dmcritchie/excel...oRightOfShapes
modified from a posting by Dick Kusleika

Sub ExtractLinkToRightOfShapes()
'Extract hyperlink and place to right of cells with shapes
'Dick Kusleika, 2003-03-26 in excel.links, modified from
' http://google.com/groups?threadm=efc...GP11.p hx.gbl
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
On Error Resume Next
shp.BottomRightCell.Offset(0, 1).Value = "'--"
shp.BottomRightCell.Offset(0, 1).Value = shp.Hyperlink.Address
On Error GoTo 0
Next shp
End Sub

You can use TopLeftCell instead and you can check it as

if shp.TopLeftCell.Column = 5 then 'test for Column E
shp.BottomRightCell.Offset(0, 1).Value = shp.Hyperlink.Address
end if

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"JWJW" wrote in message ...

I have a similar problem.
I can extract hyperlinks entered into cells OK, but I have a
spreadsheet that has a series of objects (pictures). The hyperlink is
in the object, not the cell, as I can drag and drop the object
elsewhere. Each of these objects is one to a cell, in a column. If I
right-click on the object, I can get the Hyperlink menu, and can Edit
the hyperlink if I want to. The trouble is, I have hundreds of these
objects.

Is there some function that I can use or create to extract the
hyperlink from the object in each cell?

Thanks.


--
JWJW
------------------------------------------------------------------------
JWJW's Profile: http://www.excelforum.com/member.php...o&userid=15681
View this thread: http://www.excelforum.com/showthread...hreadid=268037