AddTextbox Method Example

This example adds a text box that contains the text "Test Box" to a new document.

Set myDocument = Documents.Add
Set myTBox = myDocument.Shapes _
    .AddTextBox(Orientation:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=300, Height:=200)
myTBox.TextFrame.TextRange = "Test Box"