Microsoft Office Forums - View Single Post - Using clickable textboxes and saving their captions

JohnWilson · 08-06-2021, 06:10 AM

Assuming you are using standar shapes for questions you might be able to use

Code:

Sub RightAnswer(oshp As Shape)
    If qAnswered = False Then
           numCorrect = numCorrect + 1
         count = count + 1
    rayResult(count) = oshp.TextFrame2.TextRange
    End If
    qAnswered = False
    'MsgBox "Your doing well, " & userNameType
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub WrongAnswer(oshp As Shape)
    If qAnswered = False Then
        numincorrect = numincorrect + 1
                 count = count + 1
    rayResult(count) = oshp.TextFrame2.TextRange
    End If
    qAnswered = False 'if giving answer change back to True
    'MsgBox "Try to do better next time, " & userNameType
    ActivePresentation.SlideShowWindow.View.Next
End Sub