Shapes.AddTextbox procedure builder

Shapes.AddTextbox (Word)

Adds a text box to a drawing canvas.

AddTextbox (Orientation, Left, Top, Width, Height, Anchor)

Sub NewCanvasTextbox() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a text box to the drawing canvas 
 shpCanvas.CanvasItems.AddTextbox _ 
 Orientation:=msoTextOrientationHorizontal, _ 
 Left:=1, Top:=1, Width:=100, Height:=100 
End Sub

Arguments

The following arguments are required:

Orientation (Office.MsoTextOrientation) - The orientation of the text. Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you have selected or installed.

Left (Single) - The position, measured in points, of the left edge of the text box.

Top (Single) - The position, measured in points, of the top edge of the text box.

Width (Single) - The width, measured in points, of the text box.

Height (Single) - The height, measured in points, of the text box.

Optional arguments

The following argument is optional

Anchor