Shape.IncrementRotation メソッド (Project)

z 軸を中心に、指定した度数だけ図形を回転します。

構文

expression。 IncrementRotation (インクリメント)

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

パラメーター

名前	必須 / オプション	データ型	説明
Increment	必須	Single	図形が回転する度数。 正の値を指定すると図形は時計回りに回転し、負の値を指定すると反時計回りに回転します。
Increment	必須	FLOAT
名前	必須 / オプション	データ型	説明

戻り値

Nothing

解説

Increment パラメーターには、-3600 から 3600 までの値を指定できます。

例

次の例は、図形の回転と図形範囲の回転の違いを示しています。 この例では、2 つの円柱を含む図形範囲を作成し、図形範囲を時計回りに 30 度回転した後、2 番目の図形を反時計回りに 30 度回転します。 最後の IncrementRotation ステートメントにブレークポイントを設定し、コードをステップ実行すると、回転のしくみを確認できます。

Sub RotateShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shpGroup As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    
    reportName = "Rotate Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 30, 100, 100)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 30, 100, 100)
        
    Set sRange1 = theReport.Shapes.Range(Array(1, 2))
    sRange1.IncrementRotation 30

    sRange1(2).IncrementRotation -30
End Sub

関連項目

Shape オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。