Table of contents
TOC
折叠目录
展开目录

ShapeRange.Rotation 属性 (发布服务器)ShapeRange.Rotation Property (Publisher)

office 365 dev account|上次更新日期: 2018/3/13
|
2 参与人员

返回或设置一个值,表示指定的形状绕 z 轴旋转的度数。正值表示顺时针旋转;负值表示逆时针旋转。读/写。Returns or sets a Single that represents the number of degrees the specified shape is rotated around the z-axis. A positive value indicates clockwise rotation; a negative value indicates counterclockwise rotation. Read/write.

语法Syntax

表达式旋转expression. Rotation

_expression_A 表示一个ShapeRange对象的变量。_expression_A variable that represents a ShapeRange object.

注解Remarks

若要设置一个三维形状围绕 x 轴或 y 轴的旋转角度,使用超出RotationX属性的或超出 RotationY属性的ThreeDFormat对象。To set the rotation of a three-dimensional shape around the x-axis or the y-axis, use the RotationX property or the RotationY property of the ThreeDFormat object.

示例Example

以下示例将当前出版物的第一页上的所有形状的旋转与第一个形状的旋转匹配。以下示例假定当前出版物的第一页上至少有两个形状。This example matches the rotation of all shapes on the first page of the active publication to the rotation of the first shape. This example assumes there are at least two shapes on the first page of the active publication.

Sub SetShapeRotation() 
 Dim sngRotation As Single 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes 
 sngRotation = .Item(1).Rotation 
 For intCount = 1 To .Count 
 .Item(intCount).Rotation = sngRotation 
 Next intCount 
 End With 
End Sub
© 2018 Microsoft