全部显示创建一个标签。返回一个代表新标签的 Shape 对象。
expression.AddLabel(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 Label”的垂直标签。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddLabel(Orientation:=msoTextOrientationVerticalFarEast, _
Left:=100, Top:=100, Width:=60, Height:=150).TextFrame _
.TextRange.Text = "Test Label"