Broken links in powerpoint deck...huge file

[VBA Novice]

Hey Gurus,

I've been searching high and low for a way to get my file
(approximately 400 slides with lots of hyperlinks) to save without
breaking most of my hyperlinks. I came across the following VBA at
Bill Dilworth's site: http://billdilworth.mvps.org/UnlimitedLinks.htm .
Although I cannot seem to figure out how to get the following code to
work. Reason being I am not proficient (novice level even) at using
VBA, but believe I will need to change (" .Hyperlink.Address =
"http://" & _" ) this line of code to reference a slide. How does one
do this? Or is there an easier way in PPT XP to achieve a greater # of
hyperlinks than 64kb?

Thanks,
The Novice

****************************************VBA Code
Below********************************

Option Explicit

Sub Fission(oBoom As Shape)
Dim vSaved As Boolean
vSaved = ActivePresentation.Saved

On Error Resume Next

With oBoom.ActionSettings(ppMouseClick)
.Hyperlink.Address = "http://" & _
oBoom.TextFrame.TextRange.Text
.Hyperlink.Follow
.Hyperlink.Delete
.Run = "Fission"
.Action = ppActionRunMacro
End With


ActivePresentation.Saved = vSaved

End Sub

 

[Guest]

I think Bill's code is for external hyperlinks

Try this code
***********

Sub hyper(oshp As Shape)
On Error GoTo errorhandler
Dim stext As Integer
If oshp.HasTextFrame And oshp.TextFrame.HasText Then
stext = Val(oshp.TextFrame.TextRange)
ActivePresentation.SlideShowWindow.View.GotoSlide (stext)
End If
Exit Sub
errorhandler:
MsgBox ("Sorry, there's been an error")
End Sub

**************

Insert a shape or button for the hyperlink and add text = the number of the
slide to go to eg "8". In action settings give it a mouse click or mouse over
action setting of run macro "hyper"

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html

 

[VBA Novice]

Hey John,

It works...only catch is it makes my ppt deck heavy. Guess that's what
I get for using it on 279 slides as a reference code....

Thanks for the insight...really helpful...