Finding Text Hyperlinks using VBA

S

Stephanie Krieger

Hi, Ron,

PowerPoint views hyperlinks as a type of action setting
whether in text or applied to a shape. The ActionSetting
property just follows the TextRange property when the
hyperlink appears in text...

For example:

Hyperlink on a shape might be written as:
ActiveWindow.Selection.SlideRange.Shapes(1).ActionSettings
(ppMouseClick).Hyperlink

....etc...

Hyperlink within text within that shape would be written
as:
ActiveWindow.Selection.SlideRange.Shapes
(1).TextFrame.TextRange.ActionSettings
(ppMouseClick).Hyperlink

....etc...

If you're going to search throughout shapes for text
containing hyperlinks ... be sure to check if the shape
has a text frame (i.e., a line is a shape, but doesn't
contain a text frame) -- or you might throw errors. The
HasTextFrame property will take care of this ... i.e.,

For each ashp in ActiveWindow.Selection.SlideRange.Shapes
If ahp.HasTextFrame = True Then...

....etc...

Hope that helps.

Best,
Stephanie Krieger
author of Microsoft Office Document Designer (from
Microsoft Press)
e-mail: MODD_2003 @ msn . com
blog: arouet.net
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Mass-remove hyperlinks from Publisher Document (VBA macro) 0
Adding several hyperlinks to text in a Powerpoint shape 4
Using VBA to search for hyperlinks in textboxes 1
Which part of shape selected 9
How to get selected text from a table cell in PPT 2007 using VBA? 4
Odd VBA Replace behavior in PPT2007 5
Add multiple hyperlinks in Powerpoint (automation) 1
Save webpages from hyperlinks in Excel table - suggestions? 0

Top