TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub Jump(oShp As Shape)
    ' This assumes that the shape has a tag set to the number
    ' of the slide we want to jump to
    ' Use the companion SetUpJump routine to tag the slide

    Dim sTemp As String
    sTemp = oShp.Tags("JumpTo")
    If Len(sTemp) > 0 Then
        SlideShowWindows(1).View.GotoSlide (CLng(sTemp))
    End If
End Sub

Next, select a shape that you want to assign a jump to, then run the following macro (this macro can be in a different presentation if you like; only the Jump macro above needs to be in your "real" presentation.

Sub SetUpJump()
    On Error GoTo ErrorHandler
    Dim sTemp As String

    With ActiveWindow.Selection.ShapeRange(1)
        sTemp = InputBox("Slide number to jump to", "Where to, Mac?")
        If Len(sTemp) = 0 Then
            Exit Sub
        End If
        .Tags.Add "JumpTo", sTemp
        With .ActionSettings(ppMouseClick)
            .Run = "Jump"
            .Action = ppActionRunMacro
        End With
    End With

NormalExit:
    Exit Sub
ErrorHandler:
    MsgBox "Select one and only one shape, please"
    Resume NormalExit
End Sub