VBA之AddLabel 方法
AddLabel 方法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"
我卷了~~~~~~~ 不错啊! 一个字牛啊!
页:
[1]