Thanks for your time everybody. I think David gave me the right explenation:
you can't select in slide show view!!
I try to explain the problem again (I'm not so good in english): there are
three action buttons on a slide. One of them with a link. You have to click
that one to continue. When you've seen some slides you return to the first
slide. Now the second button must have a link to!! and that is what doesn't
work. Sorry I didn't explain it like this before.
So the idea is to force people to view some slides and only then make another
button active so they can go to another section of the show.
This will add a link to slide 3 to the shape named ButtonTwo on Slide 1:
(watch for line breaks)
With
ActivePresentation.Slides(1).Shapes("ButtonTwo").ActionSettings(ppMouseClick)
With .Hyperlink
.Address = ""
.SubAddress = "258,3,3"
End With
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoTrue
End With
But wouldn't it be simpler to leave button two invisible until it's needed?
In other words, suppose:
Slide 1: one button visible, several hidden. Click ButtonOne, it takes you to
a sub-set of slides, maybe 2, 3, 4.
On slide 4 there's a button to take you back to Slide 1. It triggers a macro
like this:
Sub GoBack()
' Make Button Two visible
ActivePresentation.Slides(1).Shapes("ButtonTwo").Visible = True
' Go back to slide 1
SlideShowWindows(1).View.GotoSlide (1)
End Sub
Our free PPT2HTML demo (
http://ppt2html.pptools.com) has an accessibility
assistant tool you can use to name shapes and make them visible/invisible.