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