AddTextbox Method Example
This example adds a text box that contains the text "Test Box" to myDocument.
myDocument
Set myDocument = ActivePresentation.Slides(1) myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 100, 100, 200, 50).TextFrame.TextRange.Text = "Test Box"