ShapeRange.Rotation 屬性 (Publisher)

會傳回或設定 Single ，代表指定圖案繞 Z 軸旋轉的度數。 正值代表順時針旋轉 ；為負值表示逆時針旋轉角度。 讀取/寫入。

語法

運算式。旋轉

表達 代表 ShapeRange 物件的 變數。

註解

若要設定立體圖案繞 X 軸或 y 軸的旋轉角度，請使用RotationX屬性或ThreeDFormat物件的RotationY屬性。

範例

本範例將使用中出版物第一頁的所有圖案合配第一個圖案的旋轉。 本範例假設使用中出版物的第一頁上至少有兩個圖案。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。