Update link in slide

[Gil]

Hello,

I have a slide with some rectangles (used as hyperlinks).
I wrote a sub to update these links.
It worked great, but when I added some slides before this slide I got
an
error (run time error. The item with the specified name was not
found).
I checked and verify that the slide's name remain "Slide 2" (althought
I
added some slides before this slide).

How Can I set s point to the same slide (in case the user adds slides
before) ?

Thank you
Gil



Sub updateHyperlinks()

Dim s As Slide
Set s = ActivePresentation.Slides(2)

With s.Shapes("Rectangle 4")
.ActionSettings(ppMouseClick).Hyperlink.Delete
With .ActionSettings(ppMouseClick).Hyperlink
.Address = ""
.SubAddress = "joe report"
.ScreenTip = ""
.TextToDisplay = ""
End With
End With
..
..
..

 

[Shyam Pillai]

You can uniquely identify a slide by using the SlideID property. No two
slides will have the same ID.

Regards,
Shyam Pillai

Handout Wizard
http://skp.mvps.org/how

 

[Gil]

Hello,

Thank you for your help.

Gil D.