IncrementTop 方法

       

以指定的磅值垂直移动指定图形。

expression.IncrementTop(Increment)

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

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

示例

本示例在 myDocument 中复制图形 1,为复制的图形设置填充格式,将其右移 70 磅,上移 50 磅,并顺时针旋转 30 度。

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