Excel VBA 図形（シェイプ）の面取りに材質感を設定する

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティ、またはShapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのTreeD【ｽﾘｰﾃﾞｨ】プロパティで取得して立体の書式設定を表す
  TreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  図形の表面の材質の種類をMsoPresetMaterial列挙型に定数または値で指定します。

  MsoPresetMaterial列挙型

  定数	値	内容	イメージ
  msoMaterialMatte	1	つや消し
  msoMaterialPlastic	2	プラスチック
  msoMaterialMetal	3	メタル
  msoMaterialWireFrame	4	ワイヤーフレーム
  msoMaterialMatte2	5	つや消し2
  msoMaterialPlastic2	6	プラスチック2
  msoMaterialMetal2	7	メタル2
  msoMaterialWarmMatte	8	つや消し (明るめ)
  msoMaterialTranslucentPowder	9	透明パウダー
  msoMaterialPowder	10	パウダー
  msoMaterialDarkEdge	11	ダーク エッジ
  msoMaterialSoftEdge	12	ぼかし
  msoMaterialClear	13	透明
  msoMaterialFlat	14	フラット
  msoMaterialSoftMetal	15	ソフト メタル

Sub 材質()
Dim R As Range
Dim i As Integer
For i = 1 To 15
Set R = Cells(2, i)
With ActiveSheet.Shapes.AddShape(5, R.Left, R.Top, R.Width, R.Height).ThreeD
     .BevelTopType = 7
     .BevelBottomType = 7
     .SetPresetCamera (30)
     .PresetMaterial = i
End With
Next i
End Sub

3行目【Dim i As Integer】
セルの列番号と図形の材質のを設定するPresetMaterial【ﾌﾟﾘｾｯﾄﾏﾃﾘｱﾙ】プロパティの
設定値を兼ねる繰り返し処理の中で使用するカウンター変数「i」を整数型(Integer)で宣言します。

4行目【For i = 1 To 15】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。繰り返し処理の中で1～15の値をカウンター変数「i」に順次代入します。

5行目【Set R = Cells(2, i)】
2行目のi列のセルをオブジェクト変数「R」にSetキーワードを使用して代入します。

6行目【With ActiveSheet.Shapes.AddShape(5, R.Left, R.Top, R.Width, R.Height).ThreeD】
WorkSheet【ﾜｰｸｼｰﾄ】オブジェクトの図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションの
AddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトを作成して
Shape【ｼｪｲﾌﾟ】オブジェクトのThreeD【ｽﾘｰﾃﾞｨ】プロパティを使用して立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを取得してWith【ｳｨｽﾞ】ステートメントで指定します。

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

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

9行目【.SetPresetCamera (30)】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すTreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトの図形の視点の位置を設定するSetPresetCamera【ｾｯﾄﾌﾟﾘｾｯﾄｶﾒﾗ】プロパティに等角投影（不等角投影1上）を表す定数の値の30を設定します。

10行目【.PresetMaterial = i】
With【ｳｨｽﾞ】ステートメントで指定した立体の書式設定を表すTreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトの図形の表面の材質感を設定するPresetMaterial【ﾌﾟﾘｾｯﾄﾏﾃﾘｱﾙ】プロパティにカウンター変数「i」を設定して繰り返し処理の中で15種類の材質の図形を作成します。