使指定的图形按指定度数值绕 Z 轴旋转。可用 Rotation 属性设置图形的绝对旋转量。
expression.IncrementRotation(Increment)
expression 必需。该表达式返回一个 Shape 对象。
Increment Single 类型,必需。定义图形的水平旋转量,以度为单位。正数值为顺时针旋转图形,负数值逆时针旋转。
如果要将三维图形绕 X 轴或 Y 轴旋转,请分别使用 IncrementRotationX 方法或 IncrementRotationY 方法。
本示例在 myDocument
上复制图形,为副本设置填充,向右移 70 磅并向上移 50 磅,再顺时针旋转 30 度。
Set myDocument = ActiveDocument
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With