AddTextbox Method [Excel 2003 VBA Language Reference]
Creates a text box. Returns a Shape object that represents the new text box.
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression Required. An expression that returns one of the objects in the Applies To list.
MsoTextOrientation
| MsoTextOrientation can be one of these MsoTextOrientation constants. |
| msoTextOrientationDownward |
| msoTextOrientationHorizontal |
| msoTextOrientationHorizontalRotatedFarEast |
| msoTextOrientationMixed |
| msoTextOrientationUpward |
| msoTextOrientationVertical |
| msoTextOrientationVerticalFarEast
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. |
Left Required Single. The position (in points) of the upper-left corner of the text box relative to the upper-left corner of the document.
Top Required Single. The position (in points) of the upper-left corner of the text box relative to the top of the document.
Width Required Single. The width of the text box, in points.
Height Required Single. The 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"
Applies to | Shapes Collection