I HAVE RECENTLY HAD A SIMLIAR PROBLEM WITH THE STORAGE OF
HYPERLINKS IN POWERPOINT.
I AM CURRENTLY TRYING THE WORKAROUND ABOUT SPLITTING THE
PRESENTATION UP... WHEN I COPY THE DOCUMENT FOR EACH SPLIT
AND DELETE THE UNNEEDED PAGES IN THE PRESENTATION, I STILL
CANNOT ADD ANY HYPERLINKS. THIS IS BECAUSE THE HYPERLINK
INFORMATION IS STILL STORED EVEN THOUGH PAGE DOESN'T
EXSIST ANYMORE...
THE SOLUTION I HAVE FOUND IS TO REMOVE ALL THE HYPERLINKS
FIRST THEN DELETE THE UNNEEDED PAGES, BUT I HAVE 100S OF
THEM!!! I HAVE LOOKED ON THE WEB AND SOMEONE HAS WRITTEN A
MACRO USING THE VISUAL BASIC CODE FOR EXCEL FOR REMOVING
HYPERLINKS, BUT HOW DO I ADAPT THIS FOR USE WITH POWER
POINT
I HAVE ENCLOSED THE CODE BELOW...
'This Sub procedure deletes all hyperlinks in the active
worksheet.
Sub DeleteAllHyperlinks()
For Each xLink In ActiveSheet.Hyperlinks
xLink.Delete
Next xLink
End Sub
Please can you help me!!!!!!!!!!!!!!]
Craig Donovan
Sonia Coleman
Microsoft PowerPoint MVP Team
Autorun Software, Templates and Tutorials
"CRAIG DONOVAN" <anon...@discussions.microsoft.com> wrote in message
news:1bd001c48cf1$551ac040$a601...@phx.gbl...
i think if i had the VBA code macro code for deleteing all
text hyperlinks and a macro to delete all picture
hyperlinks would be my only solution.
Thank you for your time
craig
>.
>
If you have PPT 2000 or higher, I'd also try this:
HTML "Round-tripping" to repair corruption
http://www.rdpslides.com/pptfaq/FAQ00526.htm
I'd also download a copy of the free FixLinks demo at http://get.pptools.com
Use it to create a links report and look over it very carefully, particularly
for links and link text that appears incomplete or includes odd characters.
Hyperlinks attached to text can get corrupted and cause later links on the same
slide to malfunction.
I don't think deleting hyperlinks will help because hyperlinks are a property
of the slides that contain them. If you've already deleted the slides, you've
deleted the hyperlinks (or at least removed any way for VBA to get at them).
Still, if you want to try on a copy of your presentation:
Sub RemoveHyperlinks()
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 x
Next oSl
End Sub
That won't touch picture links, but they're not the same as hyperlinks and not
part of the problem.
--
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
================================================