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

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

  MsoBevelType列挙型

  定数	値	内容	イメージ
  msoBevelNone	1	面取りをしません。
  msoBevelRelaxedInset	2	額縁風
  msoBevelCircle	3	円形
  msoBevelSlope	4	スロープ
  msoBevelCross	5	十字形
  msoBevelAngle	6	角度
  msoBevelSoftRound	7	ソフトラウンド
  msoBevelConvex	8	浮き上がり
  msoBevelCoolSlant	9	クール スラント
  msoBevelDivot	10	切り込み
  msoBevelRiblet	11	スケール
  msoBevelHardEdge	12	ハード エッジ
  msoBevelArtDeco	13	アール デコ

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティ、またはShapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した、図形の立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  面取りの奥行きの長さをポイント単位で指定します。既定値は6ptです。0pt～1584ptの範囲で単精度浮動小数点数型(Single)の値で指定します。1pt【ﾎﾟｲﾝﾄ】は約0.35ミリでセルの行の高さと同じ単位です。

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティ、またはShapes【ｼｪｲﾌﾟｽ】コレクションのAddShape【ｱﾄﾞｼｪｲﾌﾟ】メソッドで取得した、図形の立体の書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  面取りの高さをポイント単位で指定します。既定値は6ptです。0pt～1584ptの範囲で単精度浮動小数点数型(Single)の値で指定します。1pt【ﾎﾟｲﾝﾄ】は約0.35ミリでセルの行の高さと同じ単位です。

Sub 面取り()
Dim R As Range
Dim i As Integer
For i = 2 To 13
Set R = Cells(2, i)
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).ThreeD
    .BevelTopType = i
    .BevelTopDepth = 10
    .BevelTopInset = 10
End With
Next i
End Sub

3行目【Dim i As Integer】
繰り返し処理で使用するセルの列番号と面取りのタイプの値を兼ねるカウンター変数「i」を整数型(Integer)で宣言します。

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

5行目【Set R = Cells(2, i)】
Cells【ｾﾙｽﾞ】プロパティを使用して2行目のi列を参照し、オブジェクト変数「R」にSetキーワードを使用して代入します。

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

7行目【.BevelTopType = i】
With【ｳｨｽﾞ】ステートメントで指定した面取りの書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトのBevelTopType【ﾍﾞﾍﾞﾙﾄｯﾌﾟﾀｲﾌﾟ】プロパティを使用して面取りのタイプを指定します。面取りのタイプの値はカウンター変数iを指定し2～13の値を繰り返し処理の中で順次代入します。

8行目【.BevelTopDepth = 10】
With【ｳｨｽﾞ】ステートメントで指定した面取りの書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトのBevelTopDepth【ﾍﾞﾍﾞﾙﾄｯﾌﾟﾃﾞｨｯﾌﾟｽ】プロパティを使用して面取りの奥行きを10ポイントに設定します。

9行目【.BevelTopInset = 10】
With【ｳｨｽﾞ】ステートメントで指定した面取りの書式設定を表すThreeDFormat【ｽﾘｰﾃﾞｨﾌｫｰﾏｯﾄ】オブジェクトのBevelTopInset【ﾍﾞﾍﾞﾙﾄｯﾌﾟｲﾝｾｯﾄ】プロパティを使用して面取りの高さを10ポイントに設定します。