IncrementTop 方法

       

以指定磅数垂直移动指定形状。

expression.IncrementTop(Increment)

expression  必选。该表达式返回一个 Shape 对象。

Increment  必选。Single 类型。指定形状对象垂直移动的距离,以磅为单位。正值将形状下移,负值将形状上移。

示例

本示例复制 myDocument 上的第一个形状,并设置复制的填充,再向右移 70 磅、向上移 50 磅,然后顺时针旋转 30 度角。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Duplicate
    .Fill.PresetTextured msoTextureGranite
    .IncrementLeft 70
    .IncrementTop -50
    .IncrementRotation 30
End With