IncrementTop 方法

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

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