go to next slide automatically

[rajagopal]

Hi,
I'm running a power point show.
I'm at slide #35. A mouse pointer like "Hand symbol" is available which is hyperlinked to next slide #36 upon clicking it.
Now, I'm at slide #36. A "Hand symbol" like mouse pointer is available which is hyperlinked to next slide #37 upon clicking it.
Similarly # 37 has hand symbol, hyperlinked to #38 upon clicking it.
The above 3 operations have to be executed by calling a macro automatically when the slide #35 is being activated.

please help

[John Wilson]

Hi

Ive read it a couple of times but I still struggle to understand what you want to do. Maybe you could have another go at explaining?

[rajagopal]

Hi,
Please find the attached ppt where i gave further explanation of what i want..
Revert if it still confuse you..

[John Wilson]

I'm still not sure I've understood what you need. This code would add a hand to the 3 slides after the one when it is invoked (easily changed0 and give it an action of next slide on click.

Sub hand()
Dim n As Integer
Dim i As Integer
Dim otxt As Shape
'set refn to current slide
n = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
'For next 3 slides
    For i = 1 To 3
        'add hand
        Set otxt = ActivePresentation.Slides(n + i) _
       .Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 50, 50)
       With otxt.TextFrame.TextRange
            .InsertSymbol "Wingdings 2", 74
            .Font.Size = 72
            'set actions
            With .ActionSettings(ppMouseClick)
                .Action = ppActionNextSlide
        End With
   End With
Next
End Sub