Re: Macro Based hyperlink for Contents page

What version of PowerPoint are you using and what version is the other
person using? Does the other person have macro security set so the macro
can run?
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?emFrZmFsbHM=?= <zakfalls@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
news:19C4AE21-DDE3-442B-8889-8102B9DBD66A@xxxxxxxxxxxxx:

Hi,

i have ben trying to set-up a contents page which will update
automatiaclly whenever a slide is added or removed.

the only i have found of doing this is using a macro linked to the
hyperlinks (unfortunately, i can't find the the post where i got this
answer from).

it works when you have slide number in the following format <xx> as a
hyperlink to the relavent slide and the macro updates the new position
of the slide when a slide is removed or added. the macro coding is as
follows:

Sub contents ()

Dim ohl As Hyperlink
Dim newtxt As TextRange
Dim Ipos1 As Integer
Dim Ipos2 As Integer
Dim InewID As Integer
Dim InewIndex As Integer
For Each osld In ActivePresentation.Slides
For Each ohl In osld.Hyperlinks
If TypeName(ohl.Parent.Parent) = "TextRange" Then
InewID = Left$(ohl.SubAddress, 3)
InewIndex =
ActivePresentation.Slides.FindBySlideID(CInt(InewID)).SlideIndex Ipos1
= InStr(1, ohl.TextToDisplay, "<") Ipos2 = InStr(1, ohl.TextToDisplay,
">") If Ipos1 <> 0 And Ipos2 <> 0 Then
ohl.TextToDisplay = Left$(ohl.TextToDisplay, Ipos1 - 1) & _
"<" & CStr(InewIndex) & ">" & Right$ _
(ohl.TextToDisplay, Len(ohl.TextToDisplay) - Ipos2)
End If
End If
Next ohl
Next osld
Exit Sub
errhandler:
MsgBox "**ERROR**" & vbCrLf & "Error is " & Err.Description
End Sub

this works perfectly, however, if i send the presentation to someone
else with the same software, they are able to see the macro, but
cannot click on the "Run" button in Macro tool bar.

any ideas as to why this is happening and is there any way around it?

Thanks




.