Need VBA code to write text to a text box

[Keith]

Hello,

I need to write some VBA code to put text into a large
number of preexisting text boxes on a powerpoint slide.
The process doesn't seem to be quite the same as working
with a form. Here are two questions.

First, how do I determine the name of a textbox that is
already on the form. (I'm ok with doing this in the
graphic interface -- I just can't seem to find a
properties list for the text boxes)

Second, once I know the name of the textbox, what
Powerpoint VBA code will write text to the box.

Thank you very much,

keith

 

[PTT, Inc.]

This macro will allow you to name your shapes instead of using the "generic"
ones PowerPoint calls them:

=====Start macro here======

Sub NameShape()
Dim Name$
On Error GoTo AbortNameShape

If ActiveWindow.Selection.ShapeRange.Count = 0 Then
MsgBox "No Shapes Selected"
Exit Sub
End If
Name$ = ActiveWindow.Selection.ShapeRange(1).Name

Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)

If Name$ <> "" Then
ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Exit Sub

AbortNameShape:
MsgBox Err.Description

End Sub

=======End macro Here=======

This line of code will assign a value to a text box named "Name1" on Slide 1
to some specific text. You can also assign it to a variable captured
elsewhere in your presentation:

ActivePresentation.Slides(1).Shapes("Name1").TextFrame.TextRange.Text =
"Your text"

You can also assign it to a variable captured elsewhere in your
presentation:

ActivePresentation.Slides(1).Shapes("Name1").TextFrame.TextRange.Text =
strYourString

Bill Foley, Microsoft MVP PowerPoint
www.pttinc.com

 

[Keith]

Hi Bill,
That's just what I needed to get started. Thank you.
keith

-----Original Message-----
This macro will allow you to name your shapes instead of using the "generic"
ones PowerPoint calls them:

=====Start macro here======

Sub NameShape()
Dim Name$
On Error GoTo AbortNameShape

If ActiveWindow.Selection.ShapeRange.Count = 0 Then
MsgBox "No Shapes Selected"
Exit Sub
End If
Name$ = ActiveWindow.Selection.ShapeRange(1).Name

Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)

If Name$ <> "" Then
ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Exit Sub

AbortNameShape:
MsgBox Err.Description

End Sub

=======End macro Here=======

This line of code will assign a value to a text box named "Name1" on Slide 1
to some specific text. You can also assign it to a variable captured
elsewhere in your presentation:

ActivePresentation.Slides(1).Shapes

("Name1").TextFrame.TextRange.Text =

"Your text"

You can also assign it to a variable captured elsewhere in your
presentation:

ActivePresentation.Slides(1).Shapes

("Name1").TextFrame.TextRange.Text =

 

[PTT, Inc.]

You're welcome. What are you putting together (my curiosity is peeked)!

Bill Foley, Microsoft MVP (PowerPoint)
www.pttinc.com