ShapeRange.Rotation プロパティ (Publisher)

指定した図形が z 軸を中心に回転する度数を表す 単精度 浮動小数点型 (Single) の値を取得または設定します。 正の値は時計回りの回転を示します負の値は、反時計回りの回転を示します。 値の取得と設定が可能です。

構文

式。回転

式ShapeRange オブジェクトを表す変数。

注釈

x 軸または y 軸を中心とした 3 次元図形の回転を設定するには、ThreeDFormat オブジェクトの RotationX プロパティまたは RotationY プロパティを使用します。

例

次の使用例は、作業中の文書の最初のページのすべての図形の回転角度を、最初の図形の回転角度に一致させます。 次の使用例は、作業中の文書の最初のページに少なくとも 2 つの図形があることを前提としています。

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 のサポートおよびフィードバックを参照してください。