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