VBA Textbox Powerpoint

Question

I am able to enter characters in textbox1 on Slide 1, but how can I enter characters separately in textbox2 on the same slide (slide1) without altering textbox1?

The following code works for textbox1:

Sub SetCurrentText(sText)

' Sets the current text

' Modified to work with a VBA shape called TextBox1

sCurrentText = sText

' But could just as well set the text in a text box or text control

' See examples above

ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text = sText

End Sub

Answer 1

Sorry, I don't understand this sentence:

"there a code for both textbox1 and textbox2 on slide1"

Please describe the issue in more detail. We don't know how your presentation is constructed or what you're trying to accomplish..

Answer 2

On slide1, 

ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text = sText works for textbox1

ActivePresentation.Slides(1).Shapes("TextBox2").OLEFormat.Object.Text = sText works for textbox2 

but is there a code for both textbox1 and textbox2 on slide1.

Answer 3

Just change the name to the name of the second text box. Here's a little better syntax for that:

ActivePresentation.Slides(1).Shapes("TextBox 4").TextFrame2.TextRange.Text = sText