大众计算机学习网

专门提供各种电脑教程

VBA之AddLabel 方法

Admin | 2015-2-28 10:52:01 | 被阅次数 | 3489

  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"