Use the AddTextbox Method to add a text box to the eighth slide and assign text to it : Slide Text « PowerPoint « VBA / Excel / Access / Word






Use the AddTextbox Method to add a text box to the eighth slide and assign text to it

 
Sub textBox()
    Dim myTextBox As Shape
    With ActivePresentation.Slides(1)
        Set myTextBox = .Shapes.AddTextbox _
            (Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _
            Width:=400, Height:=100)
        myTextBox.TextFrame.TextRange.Text = "Corrective Lenses"
    End With
End Sub

 








Related examples in the same category

1.Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic.
2.Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue
3.Returning and Setting the Text in a Text Range
4.Returns the second through fifth words from the first shape on the first slide in the active presentation:
5.Set the text of the second paragraph in the second shape on the sixth slide in the presentation
6.Formatting the Text in a Text Range
7.Formatting the Bullets for a Text Range
8.To use a picture as a bullet, set the Type property of the BulletFormat object to ppBulletPicture and then use the Picture method with the Picture argument