AddTextbox Method

  • Article

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

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

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

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

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

Example

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

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
    .TextRange.Text = "Test Box"

Applies to | Shapes Collection Object

See Also | AddLabel Method