以指定度数改变指定形状绕 z 轴的旋转量。使用 Rotation 属性设置形状的绝对旋转量。
expression.IncrementRotation(Increment)
expression 必选。该表达式返回一个 Shape 对象。
Increment 必选。Single 类型。指定形状水平旋转的度数。正值将形状顺时针旋转,负值将形状逆时针旋转。
若要绕 X 轴或 Y 轴旋转一个三维形状,请使用 IncrementRotationX 方法或 IncrementRotationY 方法。
本示例复制 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