Exit animation on click - PP 2000

Using PowerPoint 2000, so the animation timing effects are not
available to me.

I am creating a Family Feud type slide that has 8 hidden answers, which
I would like to reveal randomly by clicking them.

Currently, I have it set up to run (with Action Settings) the following
VBA when a shape (the shape that covers the answer) is clicked:

Sub RevealAnswer(oShape As Shape)
oShape.Visible = Not oShape.Visible
End Sub

I would like to reveal the answer a little "fancier" with animation,
rather than just hiding the shape.

The answer can either be revealed in 2 ways, whichever is easiest in
VBA:
1) Click the shape that is covering the answer, and then animation
will make that shape disappear, thus revealing the answer.
2) The answer is hidden, and by clicking the shape, the answer is
revealed with animation.

Any help would be greatly appreciated.

If you can live with just 5 choices per question, I have a free sample game
that you can download at:

http://www.pttinc.com/ppgame.htm

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com
"grime" wrote in message
ps.com...
Using PowerPoint 2000, so the animation timing effects are not
available to me.

I am creating a Family Feud type slide that has 8 hidden answers, which
I would like to reveal randomly by clicking them.

Currently, I have it set up to run (with Action Settings) the following
VBA when a shape (the shape that covers the answer) is clicked:

Sub RevealAnswer(oShape As Shape)
oShape.Visible = Not oShape.Visible
End Sub

I would like to reveal the answer a little "fancier" with animation,
rather than just hiding the shape.

The answer can either be revealed in 2 ways, whichever is easiest in
VBA:
1) Click the shape that is covering the answer, and then animation
will make that shape disappear, thus revealing the answer.
2) The answer is hidden, and by clicking the shape, the answer is
revealed with animation.

Any help would be greatly appreciated.

Thanks for the reply, Bill! Actually, I downloaded that already! I
need a little different version for my purposes unfortunately.

Would you might sharing a bit of your code?

Matt

Bill Foley wrote:
If you can live with just 5 choices per question, I have a free sample game
that you can download at:

http://www.pttinc.com/ppgame.htm

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com
"grime" wrote in message
ps.com...
Using PowerPoint 2000, so the animation timing effects are not
available to me.

I am creating a Family Feud type slide that has 8 hidden answers, which
I would like to reveal randomly by clicking them.

Currently, I have it set up to run (with Action Settings) the following
VBA when a shape (the shape that covers the answer) is clicked:

Sub RevealAnswer(oShape As Shape)
oShape.Visible = Not oShape.Visible
End Sub

I would like to reveal the answer a little "fancier" with animation,
rather than just hiding the shape.

The answer can either be revealed in 2 ways, whichever is easiest in
VBA:
1) Click the shape that is covering the answer, and then animation
will make that shape disappear, thus revealing the answer.
2) The answer is hidden, and by clicking the shape, the answer is
revealed with animation.

Any help would be greatly appreciated.