Powerpoint Quiz question

[Sheltered]

Hi, hope someone can help.
I have a powerpoint presentation with several questions on.
Each question has a simple 'true' or 'false' answer.
I want it so that if a user clicks the right answer it puts a text box at the bottom of the page which says 'correct' and if he clicks the wrong answer it says 'incorrect'.

I recorded a macro to change the text in the textbox which works if i run it from macros box. However if i run the presentation when i click the answer it does nothing.

This is the macro:

Sub Macro4()
'
' Macro recorded 05/07/2004 
'

    ActiveWindow.Selection.Unselect
    ActiveWindow.Selection.SlideRange.Shapes("Text Box 285").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=2).Select
    ActiveWindow.Selection.TextRange.Text = "correct"
    ActiveWindow.Selection.Unselect
End Sub

Any help to get this going would be much appreciated.
Thanks
Pete

 

[Sheltered]

Bump! Any ideas? Still can't get it work :O(

 

[apeoortje]

have the tries making a macro for each option button?

something like:

Private Sub OptionButton1_Click()
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "You got it right"
End With
ActiveWindow.Selection.Unselect
End Sub

 

[Sheltered]

Thanks apeoortje, i have given that a go however i am getting the following error message...

Run-time error '-2147188160 (80048240)':
Application (unknown member):Invalid request. There is no currently active document window.

I have done a quick google search on the error with no luck.
Any ideas.

Pete

 

[Chance1234]

have a look at my faq faq707-1698 on naming shapes in powerpoint

reason your code is not working is because when you run the slide show , it is no longer a "activewindow" you need to reference the slides and the controls by name.



Chance,

Filmmaker, gentleman and soon to be a mac user

http://WWW.5YLAC.S5.COM

,

http://WWW.HOWTOBESPOOKY.CO.UK