K
KR
I am creating a series of "test" slides with objects (boxes) linked to code.
Multiple Choice, True/False, Matching, etc.
What I'd like to do is be able to add any shape I want during development,
and set a property or variable in PowerPoint (not in VBE) that I can use
when the shape is clicked, to create a message box. For example, I show a
picture of a red apple, and ask the question "Is the apple red or green",
then have two shapes, one that says "red" and the other says "green". If the
user clicks on the shape that says "red" I want a message box that says:
[msgbox "The apple is red",,"Correct Answer"]
So if I were able to set the following properties in Powerpoint:
Shape1.hiddenproperty1 = "The apple is red"
Shape1.hiddenproperty2 = "Correct Answer"
and
Shape2.hiddenproperty1 = "The apple is not green"
Shape2.hiddenproperty2 = "Incorrect Answer"
then code something like:
Sub Identify(oShp As Shape)
msgbox (oShp.hiddenproperty1,,hiddenproperty2)
End Sub
then I could do all my development in Powerpoint, and not have to create a
sub (or separate msgbox statement) for every object I add...
Is there a way to do this? I can't find any way to access a shape's
properties (hidden or otherwise) other than the basic ones exposed through
the Powerpoint interface...
Many thanks,
Keith
Multiple Choice, True/False, Matching, etc.
What I'd like to do is be able to add any shape I want during development,
and set a property or variable in PowerPoint (not in VBE) that I can use
when the shape is clicked, to create a message box. For example, I show a
picture of a red apple, and ask the question "Is the apple red or green",
then have two shapes, one that says "red" and the other says "green". If the
user clicks on the shape that says "red" I want a message box that says:
[msgbox "The apple is red",,"Correct Answer"]
So if I were able to set the following properties in Powerpoint:
Shape1.hiddenproperty1 = "The apple is red"
Shape1.hiddenproperty2 = "Correct Answer"
and
Shape2.hiddenproperty1 = "The apple is not green"
Shape2.hiddenproperty2 = "Incorrect Answer"
then code something like:
Sub Identify(oShp As Shape)
msgbox (oShp.hiddenproperty1,,hiddenproperty2)
End Sub
then I could do all my development in Powerpoint, and not have to create a
sub (or separate msgbox statement) for every object I add...
Is there a way to do this? I can't find any way to access a shape's
properties (hidden or otherwise) other than the basic ones exposed through
the Powerpoint interface...
Many thanks,
Keith