AddTextbox Method

Microsoft Word Visual Basic

Adds a text box to a drawing canvas. Returns a Shape object that represents the text box and adds it to the CanvasShapes collection.

expression.AddTextbox(Orientation, Left, Top, Width, Height)

expression    Required. An expression that returns a CanvasShapes object.

Orientation Required 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’ve selected or installed.

MsoTextOrientation can be one of these MsoTextOrientation constants.
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

Left   Required Single. The position, measured in points, of the left edge of the text box.

Top   Required Single. The position, measured in points, of the top edge of the text box.

Width   Required Single. The width, measured in points, of the text box.

Height   Required Single. The height, measured in points, of the text box.

ShowAddTextbox method as it applies to the Shapes object.

Adds a text box to a document. Returns a Shape object that represents the text box and adds it to the Shapes collection.

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

expression    Required. An expression that returns one of the objects in the Applies to list.

Orientation   Required 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’ve selected or installed.

MsoTextOrientation can be one of these MsoTextOrientation constants.
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

Left   Required Single. The position, measured in points, of the left edge of the text box.

Top   Required Single. The position, measured in points, of the top edge of the text box.

Width   Required Single. The width, measured in points, of the text box.

Height   Required Single. The height, measured in points, of the text box.

Anchor    Optional Variant. A Range object that represents the text to which the text box is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the text box is positioned relative to the top and left edges of the page.

Example

ShowAs it applies to the CanvasShapes object.

This example add a textbox to a canvas in a new document.

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
				

ShowAs it applies to the Shapes object.

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

Sub newTextbox()
    Dim docNew As Document
    Dim newTextbox As Shape

    'Create a new document and add a text box
    Set docNew = Documents.Add
    Set newTextbox = docNew.Shapes.AddTextbox _
        (Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=300, Height:=200)

    'Add text to the text box
    newTextbox.TextFrame.TextRange = "Test"
End Sub