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

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" wrote:

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

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...

John Wilson wrote:
> 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" wrote:
>
> > 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
> >
> >