Why not use auto shapes with action settings instead of command buttons.
The functionality is the same, but the problems are far less. They will
become invisible immediately.
You could replace:
Private Sub CommandButton1_Click()
'Category 1 Question 1
'Blah blah blah
End Sub
Private Sub CommandButton2_Click()
'Category 2 Question 2
'Blah blah blah
End Sub
With a single routine that would pull all the information from 2 tags on the
shapes:
Private Sub AutoShape(oShp As Shape)
Dim RefSld As Integer
Dim Value As Integer
'Set the value being wagered based on _
a tag on the square that was clicked
Value = oShp.Tags("Value")
'Set the slide that the "Answer" is on _
based on a tag on the square that was clicked
RefSld = oShp.Tags("SlideNumber")
oShp.Visible = msoFalse
ActivePresentation.SlideShowWindow _
.View.GotoSlide RefSld
End Sub
--
Bill Dilworth
Microsoft PPT MVP Team
Users helping fellow users.
===============
Please spend a few minutes checking vestprog2@
out
www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.
Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..