The difficulty with doing this is not getting the text to appear, but with
getting the action button to disappear. The action buttons tend not to
update the same as other objects in PowerPoint.
You may be better off using a regular shape with an action setting. Say we
make a shape called "PressThis" and another shape with text that is called
"ShowThis" Then you could add the code that looks like this:
=====Start Code ======
Sub ButtonPressed()
With ActivePresentation.Slides(1).Shapes
.Item("ShowMe").Visible = msoTrue
.Item("PressMe").Visible = msoFalse
End With
End Sub
Sub ButtonReset()
With ActivePresentation.Slides(1).Shapes
.Item("ShowMe").Visible = msoFalse
.Item("PressMe").Visible = msoTrue
End With
End Sub
=====End Code ======
Now connect it together by right clicking on the PressMe shape and set the
action setting
'when clicked' to
'Run the Macro'
"ButtonPressed"
To reset the 2 objects set the ShowMe text to Run the Macro ButtonReset.
(Otherwise, you'll be wondering how to get the button back.)
** HOWEVER **
You do not need VBA to make this happen. You can use a simple trigger
animation.
Set the animation on the text box to appear, then click on the animation
timing to show the timing dialog. Click on the Triggers button and select
the Shape name that will trigger the text to show. OK out of everything.
The trigger method is easier and with work in more cases.
--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com
www.pptfaq.com
..
