Symbol Hyperlink

  • Thread starter Thread starter SDW
  • Start date Start date
S

SDW

Hi
I have a sheet that has a col. of symbols (envelope shape) when you click
the symbol you launch activate the mailto: opening Outlook Express with the
persons email address already in
What I want to do is extract the mailto: hyperlink from each symbol which
are in A1-A55 within the sheet in another col.
I know I cannot attach the sheet here but if you want to see a graphic of
this go to :
http://www.ittravel.com.au/sample1.gif

Many thanks in advance

Stephen West
Gold Coast, Australia
 
Try this macro SDW for the Activesheet

Sub testme02()
'Dave Peterson
Dim myShape As Shape
Dim myHyperlink As Hyperlink

For Each myShape In ActiveSheet.Shapes
Set myHyperlink = Nothing
On Error Resume Next
Set myHyperlink = myShape.Hyperlink
On Error GoTo 0
If myHyperlink Is Nothing Then
'do nothing
Else
With myShape.BottomRightCell
.Offset(0, 1).Value = myHyperlink.Address
ActiveSheet.Hyperlinks.Add anchor:=.Offset(0, 1), _
Address:=myHyperlink.Address
End With
End If
Next myShape
End Sub
 
Back
Top