AddTextbox Method

Applies To

Shapes collection object.

Description

Creates a text box. Returns a Shape object that represents the new text box.

Syntax

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

expression Required. An expression that returns a Shapes object.

Orientation Required Long. The text orientation within the label. Can be one of the following MsoTextOrientation constants: msoTextOrientationDownward, msoTextOrientationHorizontal, msoTextOrientationHorizontalRotatedFarEast, msoTextOrientationMixed, msoTextOrientationUpward, msoTextOrientationVertical, or msoTextOrientationVerticalFarEast. The Far East constants are not used in U.S./English Microsoft Excel.

Left, Top Required Single. The position (in points) of the upper-left corner of the text box relative to the upper-left corner of the document.

Width, Height Required Single. The width and height of the text box, in points.

Example

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

Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50) _
    .TextFrame.Characters.Text = "Test Box"