Removing all hyperlinks

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steve Block - 18 Apr 2007 11:08 GMT

I have some presentations that contain a number of hyperlinks (to sound files
and to other programs). I want to post these presentations on a student
website, but without the hyperlinks, which wouldn't work if clicked anyway.
Is there a way I can locate and remove all hyperlinks in one process, or do
I need to go through removing them one by one?

Steve

Reply to this Message

Steve Rindsberg - 23 Apr 2007 15:27 GMT

> I have some presentations that contain a number of hyperlinks (to sound files
> and to other programs). I want to post these presentations on a student
> website, but without the hyperlinks, which wouldn't work if clicked anyway.
> Is there a way I can locate and remove all hyperlinks in one process, or do
> I need to go through removing them one by one?

Give this a try on a copy of your existing presentation:

Sub RemoveLinks()
' Warning: air code

Dim oSl as Slide
Dim x as Long

For Each oSl in ActivePresentation.Slides
For x = oSl.Hyperlinks.Count to 1 Step -1
oSl.Hyperlinks(x).Delete
Next ' Hyperlink
Next ' Slide

End Sub

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

Reply to this Message