Are hyperlinks part of the shapes object?

[Guest]

I insert a freeform shape on a slide then assign a
hyperlink to it. I have many of these on a slide and I
need to order the processing of the hyperlinks based on
the physicial position of the link/shape in a VBA
procedure. Hyperlinks don't have a top or left property
but the shapes do. I cannot find how the hyperlink is
related to the shape.
I have many properties within ActivePresentation.Slides
(x).Shapes(y) and some properties within
ActivePresentation.Slides(a).Hyperlinks(b) but I cannot
find how a hyperlink is related to the shape.

 

[David M. Marcovitz]

I think you want the following:

ActivePresentation.Slides(x).Shapes(y). _
ActionSettings(ppMouseClick).Hyperlink

You can get more information by typing "ActionSettings" into help.

--David

--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Steve Rindsberg]

I insert a freeform shape on a slide then assign a
hyperlink to it. I have many of these on a slide and I
need to order the processing of the hyperlinks based on
the physicial position of the link/shape in a VBA
procedure. Hyperlinks don't have a top or left property
but the shapes do. I cannot find how the hyperlink is
related to the shape.
I have many properties within ActivePresentation.Slides
(x).Shapes(y) and some properties within
ActivePresentation.Slides(a).Hyperlinks(b) but I cannot
find how a hyperlink is related to the shape.

If the hyperlink is applied to the shape and not to text selected within the
shape:

Debug.Print ActivePresentation.Slides(x).Hyperlinks(y).Parent.Parent.Name

So for example:

Dim oSl as Slide
Dim oHl as Hyperlink

For each oSl in ActivePresentation.Slides
For each oHl in oSl.Hyperlinks
Debug.Print "Shape:" & vbtab _
& oHl.Parent.Parent.Name _
& vbcrlf _
& "Address:" & vbtab _
& oHl.Address & vbtab & oHl.SubAddress
Next oHl
Next oSl

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================