textbox help please!

[eric]

Hi, im eric 14, and I need some assistance,

ok, in office XP, powerpoint I want to add a text box, BUT NOT THE ORIGINAL
TEXT BOX!!!!!, I want to add the text box where you can type stuff in it
while your in the presentation

now, want I want to do with it, is while the presentation is running, I want
to be able to type in a word and hit enter, so that it will take you to a
certain slide DEPENDING on the name you put in the box, like if you put in
CAT, I want it to take you to slide 3, or if you type in APPLE, i want it to
take you to the 12th slide, any suggestions on how i could do this?


Thanks,
eric

 

[Bill Foley]

It can be done using a textbox control and VBA code. Are you ready to dive
into programming PowerPoint? If so, I can provide a quick example.
Basically you would need to draw the object on your slide, insert a module
in the VBE window, declare a variable to the OLE object, then have some sort
of IF statement that says if the value of "Textbox1" = "This" THEN
ActivePresentation.SlideShowWindow.View.GotoSlide (x), Else If ...

Keep in mind that VBA code will not work with the PowerPoint Viewer or as a
web page, but only with the PowerPoint program.

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."

 

[David M. Marcovitz]

What Bill said and ...

You might consider a text box that pops up instead. It still requires
code, but is a bit simpler than using the control toolbox. This might be
more than you bargained for. You could have a button that activates the
following script:

Sub CatOrDog()
Dim myText As String

myText = InputBox("What do you like?")
myText = LCase(myText) 'convert it to all lowercase
myText = Trim(myText) 'Trim leading and trailing spaces
If myText = "cat" Then
ActivePresentation.SlideShowWindow.View.GotoSlide 3
ElseIf myText = "dog" Then
ActivePresentation.SlideShowWindow.View.GotoSlide 4
ElseIf myText = "apple" Or myText = "apples" Then
ActivePresentation.SlideShowWindow.View.GotoSlide 5
ElseIf myText = "banana" Or myText = "bananas" Then
ActivePresentation.SlideShowWindow.View.GotoSlide 6
Else
ActivePresentation.SlideShowWindow.View.GotoSlide 7
End If
End Sub

A final codeless alternative is to have a menu of choices, so someone can
click on one of the choices. You can create a bunch of buttons, and they
click on the one they want. Each button just needs a simple hyperlink
(right-click on button and choose Insert Hyperlink).

--David
--
David M. Marcovitz
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/