以指定的磅数为增量,水平移动指定的图形。
expression.IncrementLeft(Increment)
expression 必需。该表达式返回一个 Shape 对象。
Increment Single 类型,必需。以磅为单位指定图形水平移动的距离。正值使图形向右移动,负值使图形向左移动。
本示例复制 myDocument
上的第一个图形,设置所复制的图形的填充格式,将其向右移动 70 磅,向上移动 50 磅,然后按顺时针方向旋转 30 度。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With