AddTextbox Method

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

AddTextbox method as it applies to the CanvasShapes object.

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.

MsoTextOrientation

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.

AddTextbox 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.

MsoTextOrientation

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

As 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

As 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