Attribute VB_Name = "CreateHyperlinks"
'created by James Kingsley
'frameEntered.com

Sub questionSlide()
For Each Shape In ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex).Shapes
If Shape.Name = "wrong" Then
    With Shape _
        .ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        With .Hyperlink
            .Address = ""
            .SubAddress = ActiveWindow.View.Slide.SlideIndex + 1 'Jump to next
        End With
    End With
    End If
    If Shape.Name = "correct" Then
    With Shape _
        .ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        With .Hyperlink
            .Address = ""
            .SubAddress = ActiveWindow.View.Slide.SlideIndex + 2 'Jump fwd 2 slides
        End With
    End With
    End If
   Next Shape
End Sub

Sub qWrongSlide()
For Each Shape In ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex).Shapes
If Shape.Name = "wrong" Then
    With Shape _
        .ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        With .Hyperlink
            .Address = ""
            .SubAddress = ActiveWindow.View.Slide.SlideIndex 'replay this slide
        End With
    End With
    End If
    If Shape.Name = "correct" Then
    With Shape _
        .ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        With .Hyperlink
            .Address = ""
            .SubAddress = ActiveWindow.View.Slide.SlideIndex + 1 'Jump to next
        End With
    End With
    End If
   Next Shape
End Sub