全部显示创建一个文本框。返回一个代表新文本框的 Shape 对象。
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Orientation 必选。MsoTextOrientation 类型。文本方向。这些常数中的某些可能不可用，这取决于选择或安装的语言支持（例如，U.S. English）。
| MsoTextOrientation 可以是下列 MsoTextOrientation 类型常数之一。 |
| msoTextOrientationDownward |
| msoTextOrientationHorizontal |
| msoTextOrientationHorizontalRotatedFarEast |
| msoTextOrientationMixed |
| msoTextOrientationUpward |
| msoTextOrientationVertical |
| msoTextOrientationVerticalFarEast |
Left 必选。Single 类型。文本框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top 必选。Single 类型。文本框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width 必选。Single 类型。文本框的宽度（以磅为单位）。
Height 必选。Single 类型。文本框的高度（以磅为单位）。
本示例在 myDocument 中添加一个包含文本“Test Box”的文本框。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
.TextRange.Text = "Test Box"