Quote:
Originally Posted by JohnWilson
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
|
That works a treat. Thanks a lot for the assistance 🙂