スキルアップ・問題解決なら、モーグにおまかせ！

対象の図形の回転角度を設定します。図形は設定した角度で、図形の中心を軸に時計周りに回転します。反時計回りに回転させたい場合には、マイナスの値を設定してください。当然の話ですが、反時計回りの30度と時計回りの330度は同じ回転角度を示します。


●詳細●

  構文  Object.Rotation     設定/取得

  設定項目              内容
  Object                Shape、ShapeRangeコレクションオブジェクト [省略不可]

次のサンプル1はセルB1の左上端からC1の左上端に矢印を12本作成します。それぞれの回転角を30度ずつ増加させていき、12本目では360度、すなわち0度になります。


●サンプル●

　Sub RotationSamp1()
  　  Dim i As Single

　    For i = 1 To 12    '---12回処理を繰り返す
  　      With ActiveSheet.Shapes.AddLine _
    　        (BeginX:=Range("B4").Left, BeginY:=Range("B4").Top, _
      　       EndX:=Range("C4").Left, EndY:=Range("C4").Top)
        　     '---B4左上端からC4左上端に直線を引き、その直線に対して
          　  .Line.EndArrowheadStyle = msoArrowheadTriangle
            　.Line.EndArrowheadLength = msoArrowheadLengthMedium
　            .Line.EndArrowheadWidth = msoArrowheadWidthMedium
  　          '---終端の形状を矢印に設定します
    　     .Rotation = i * 30!
      　   '---ループ回数に応じて、角度を30度づつ変化させる
      　  End With
    　Next i
   
　End Sub


●ポイント●
Rotationプロパティで設定するには、元の図形に対しての絶対的な回転角度です。
したがって、すでに30度回転している図形のRotationプロパティに再度30を指定しても、変化は起こりません。現在表示されている状態からさらに何度か回転させたい場合には、IncrementRotationメソッドを使用します。

次のサンプル2はアクティブシートの1つ目の図形を反時計回りに30度ずつ、12回転させます。それぞれの回転角度におけるRotationプロパティの値を確認して下さい。


●サンプル2●

　Sub RotationSamp2()
　    Dim i As Long

  　  For i = 1 To 12   '---12回処理を繰り返す
    　    With ActiveSheet.Shapes(1)
      　      .IncrementRotation -30!  '---反時計回りに30度回転させる
        　    DoEvents                 '---再描画する
          　  MsgBox "現在の回転角度は" & .Rotation & "です"
  　      End With
　    Next i

　End Sub