PowerPoint hyperlinks

[Aurora I]

Hi everyone,
Is it possible to get all hyperlinks (as Hyperlink) in a PowerPoint document
without running in ShideShow mode ?
VBA code snippet would be very much appreciated.

Thank you,
Aurora I.

www.smarttech.com

 

[Steve Rindsberg]

Hi everyone,
Is it possible to get all hyperlinks (as Hyperlink) in a PowerPoint document
without running in ShideShow mode ?
VBA code snippet would be very much appreciated.

Dim oSld as Slide
Dim oHlink as Hyperlink

For Each oSld in ActivePresentation.Slides
For Each oHlink in oSld.Hyperlinks
Debug.Print oHlink.Address
Debug.Print oHlink.Subaddress
' etc
Next
Next

 

[Aurora I]

Dim oSld as Slide
Dim oHlink as Hyperlink

For Each oSld in ActivePresentation.Slides
For Each oHlink in oSld.Hyperlinks
Debug.Print oHlink.Address
Debug.Print oHlink.Subaddress
' etc
Next
Next

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Thank you. Now how do I get the shape the hyperlink is attached to ? I need
that because I am writing a PowerPoint to XMl.converter.

 

[Steve Rindsberg]

Thank you. Now how do I get the shape the hyperlink is attached to ? I need
that because I am writing a PowerPoint to XMl.converter.

Hyperlinks may be of either of two types:
msoHyperlinkRange hyperlinks applied to text
msoHyperlinkShape hyperlinks applied to a shape

Use the .Type property of the hyperlink (ie, oHlink.Type above) to determine
which. Depending on which it is, you can work your way up the "parent" tree to
the shape or (if you wish) textrange that contains the hyperlink.

That is, oHlink.Parent.Parent.Parent ...etc.

Experiment with it a bit; you'll get it.

 

[Aurora I]

Hyperlinks may be of either of two types:
msoHyperlinkRange hyperlinks applied to text
msoHyperlinkShape hyperlinks applied to a shape

Use the .Type property of the hyperlink (ie, oHlink.Type above) to
determine
which. Depending on which it is, you can work your way up the "parent"
tree to
the shape or (if you wish) textrange that contains the hyperlink.

That is, oHlink.Parent.Parent.Parent ...etc.

Experiment with it a bit; you'll get it.

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Thank you! I got it working!
Aurora