View Single Post
 
Old 08-20-2010, 09:49 AM
Jercook Jercook is offline Windows XP Office 2010 (Version 14.0)
Novice
 
Join Date: Aug 2010
Location: West Valley Utah
Posts: 13
Jercook is on a distinguished road
Cool Possible Answer

I couldn't get the Text Box from the Text group of the insert menu to accept user text when run so I tried another solution that seems to work.

In the developer tab on the ribbon, a group called controls contains several active x controls. Add the Active Text Box control to your slide and double-click it.

In the properties box at the left, scroll down to Text and set it to "Enter Your Favorite Color". Then add the following code in the code box:


------------------------------
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'this should all be on one line

If TextBox1.Text = "Enter Your Favorite Color" Then TextBox1.Text = ""

End Sub

-------------------------------


When you run the slide and click on the text box, the prompt "Enter your Favorite Color" will clear, waiting for the user input.

This will only work once unless you run some code when the slide appears to re-initialize the text to "Enter Your Favorite Color" since it will now contain whatever the user entered.

Hope this helps. I got this from help on another forum so we both learned something here!

Jerry

Last edited by Jercook; 08-20-2010 at 09:52 AM. Reason: to clarify
Reply With Quote