#1
|
|||
|
|||
Interactive Quiz using PPT 2010
I have created an interactive ppt that includes a quiz using macros and checkboxes. The quiz works great, but I am unable to get the previous test-taker’s answers to clear upon entry or exit, which obviously gives the next quiz-taker a huge advantage. A sample questions might be, True or False, the color Red begins with the letter “R”. Does anyone have any suggestions to how to automatically clear answers upon entry or exit? Your assistance is very much appreciated. Thanks.
|
#2
|
|||
|
|||
Would clearing all checkboxes be enough?
|
#3
|
|||
|
|||
I believe so. Can you recommend or suggest coding I could incorporate? Thanks.
|
#4
|
|||
|
|||
This not a method I would normally suggest as it can be unreliable. However in you specific case it should be fine. Just be aware it may not work in other situations.
It will reset checkboxes when the show ends (not if you have a goto start button though the show must close) Sub OnSlideShowTerminate(Wn As SlideShowWindow) Dim opres As Presentation Dim osld As Slide Dim oshp As Shape Set opres = Wn.Parent For Each osld In opres.Slides For Each oshp In osld.Shapes If oshp.Type = msoOLEControlObject Then Debug.Print oshp.OLEFormat.ProgID If oshp.OLEFormat.ProgID = "Forms.CheckBox.1" Then oshp.OLEFormat.Object.Value = False End If End If Next oshp Next osld End Sub If you want the checks clearded at the last slide whether the show closes or not this can also be done buy you would need to be sure that you had collected any results before the boxes update! Sub OnSlideShowPageChange(Wn As SlideShowWindow) Dim opres As Presentation Dim osld As Slide Dim oshp As Shape Set opres = Wn.Parent If Wn.View.Slide.SlideIndex = opres.Slides.Count Then For Each osld In opres.Slides For Each oshp In osld.Shapes If oshp.Type = msoOLEControlObject Then Debug.Print oshp.OLEFormat.ProgID If oshp.OLEFormat.ProgID = "Forms.CheckBox.1" Then oshp.OLEFormat.Object.Value = False End If End If Next oshp Next osld End If End Sub Last edited by JohnWilson; 07-09-2013 at 05:34 AM. |
Tags |
interactive quiz, ppt 2010 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Answer Page in PP Quiz | chaysp81 | PowerPoint | 0 | 04-24-2013 09:18 AM |
Quiz clues | Moggo | Office | 3 | 12-03-2012 05:23 AM |
Help Powerpoint quiz | liamjackandrews | PowerPoint | 0 | 10-30-2012 01:05 PM |
Faces to Names Quiz | braveshark | PowerPoint | 3 | 02-19-2012 02:50 PM |
Interactive worksheets on the web | beingbobbyorr | Excel | 1 | 08-22-2011 05:32 AM |