Removing all hyperlinks

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Steve Block said:
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?
Click to expand...


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
 
Back
Top