Using clickable textboxes and saving their captions

tanktata · #1 08-08-2021, 04:31 AM

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 🙂

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to insert captions without appending to existing captions	Marrick13	Word VBA	17	03-21-2023 07:51 PM
Table captions changing to Figure captions and vice versa	alicatsmom	Word Tables	0	06-11-2019 08:51 AM
Update Userform Captions, TextBoxes, Command buttons From Excel	dan88	Word VBA	3	05-22-2016 08:59 AM
Captions: Changing captions in Appendix update all captions	carnestw	Word	3	10-27-2015 12:34 PM
Saving graphics using captions	ChrisBrewster	Word VBA	1	11-15-2014 01:08 AM