Excel VBA 図形（シェイプ）を3-D回転効果で回転させる

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShepes【ｼｪｲﾌﾟｽ】プロパティ、またはShaeps【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのTreeD【ｽﾘｰﾃﾞｨ】プロパティで取得した立体の書式設定を表すTreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  図形の正面を0度としてX軸方向の回転角度を絶対角度で指定します。回転方向が右の場合は正の値で0～359.9度の間の値を指定します。回転方向が左の場合は-359.9～0度の間の値を指定します。単精度浮動小数点型 (Single)の値を使用します。
  

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShepes【ｼｪｲﾌﾟｽ】プロパティ、またはShaeps【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのTreeD【ｽﾘｰﾃﾞｨ】プロパティで取得した立体の書式設定を表す
  TreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  図形の正面を0度としてY軸方向の回転角度を絶対角度で指定します。回転方向が下の場合は正の値で0～359.9度の間の値を指定します。回転方向が上の場合は-359.9～0度の間の値を指定します。単精度浮動小数点型 (Single)の値を使用します。
  

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShepes【ｼｪｲﾌﾟｽ】プロパティ、またはShaeps【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのTreeD【ｽﾘｰﾃﾞｨ】プロパティで取得した立体の書式設定を表す
  TreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  図形の正面を0度としてZ軸方向の回転角度を絶対角度で指定します。回転方向が時計回りの場合は正の値で0～359.9度の間の値を指定します。回転方向が反時計回りの場合は-359.9～0度の間の値を指定します。単精度浮動小数点型 (Single)の値を使用します。
  

Sub 図形回転()
Dim R As Range
Dim i As Single
Set R = Range("B3:C5")
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).ThreeD
     .BevelTopType = 6
     .BevelBottomType = 6
     .SetPresetCamera (19)
For i = 0 To 359.5 Step 0.5
    .RotationX = i
     DoEvents
Next i
For i = 0 To 359.5 Step 0.5
    .RotationY = i
     DoEvents
Next i
For i = 0 To 359.5 Step 0.5
     .RotationZ = i
      DoEvents
Next i
End With
End Sub

3行目【Dim i As Single】
図形の角度を格納する繰り返し処理で使用されるカウンター変数「i」を単精度浮動小数点型(Single)で宣言します。

4行目【Set R = Range(“B3:C5”)】
B3セル～C5セルのセル範囲をSetキーワードを使用してオブジェクト型変数Rに代入します。

5行目【With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).ThreeD】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトの図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションの
AddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドを使用して図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトを取得します。

取得したShape【ｼｪｲﾌﾟ】オブジェクトのThreeD【ｽﾘｰﾃﾞｨ】プロパティを使用して
立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを取得してWith【ｳｨｽﾞ】ステートメントで指定します。

6行目【.BevelTopType = 6】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトの
図形の表面の面取りのタイプを設定するBevelTopType【ﾍﾞﾍﾞﾙﾄｯﾌﾟﾀｲﾌﾟ】プロパティに6の「msoBevelAngle」を設定します。

7行目【.BevelBottomType = 6】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトの
図形の裏面の面取りのタイプを設定するBevelBottomType【ﾍﾞﾍﾞﾙﾎﾞﾄﾑﾀｲﾌﾟ】プロパティに6の「msoBevelAngle」を設定します。

8行目【.SetPresetCamera (19)】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトのカメラの視点の位置を設定するSetPresetCamera【ｾｯﾄﾌﾟﾘｾｯﾄｶﾒﾗ】プロパティに正射投影を表す19を設定します。

9行目【For i = 0 To 359.5 Step 0.5】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。カウンター変数「i」に角度を表す0～359.5の値を順次代入していきます。
Step【ｽﾃｯﾌﾟ】キーワードに0.5を設定して0.5ずつ加算するように設定します。角度の最終値は359.9ですが、加算値が0.5ずつなので359.5までとします。

10行目【.RotationX = i】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトの
図形のX軸の角度を設定するRotationX【ﾛｰﾃｰｼｮﾝｴｯｸｽ】プロパティにカウンター変数iを設定します。

11行目【DoEvents】
DoEvents【ﾄﾞｩｲﾍﾞﾝﾂ】関数を使用して、繰り返し処理のイベントを一時的にオペレーティングシステムに渡し図形を再描画させて、図形の移動を描画します。この関数を使用しないと図形の角度の変更はバックグラウンドで行われ描画されている図形は動きません。

13行目以降
図形のY軸の角度を設定するRotationY【ﾛｰﾃｰｼｮﾝﾜｲ】プロパティ図形のZ軸の角度を設定するRotationZ【ﾛｰﾃｰｼｮﾝｾﾞｯﾄ】プロパティの設定のコードです。内容は9～11行目の図形のX軸の角度を設定するRotationX【ﾛｰﾃｰｼｮﾝｴｯｸｽ】プロパティと同じです。