Excel VBA 図形（シェイプ）にぼかしを設定する

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティ、またはShapes【ｼｪｲﾌﾟｽ】コレクションのAddShapeメソッドで取得したぼかしを設定する図形を表すShape【ｼｪｲﾌﾟ】オブジェクトを指定します。

• オブジェクト（必須）
  Shape【ｼｪｲﾌﾟ】オブジェクトのSoftEdge【ｿﾌﾄｴｯｼﾞ】プロパティで取得した図形のぼかしの書式設定を表すSoftEdgeFormat【ｿﾌﾄｴｯｼﾞﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  図形のぼかしのタイプをMsoSoftEdgeType列挙型の定数または値で指定します。

  MsoSoftEdgeType列挙型

  定数	値	スタイル
  msoSoftEdgeTypeNone	0	ぼかしなし
  msoSoftEdgeType1	1
  msoSoftEdgeType2	2
  msoSoftEdgeType3	3
  msoSoftEdgeType4	4
  msoSoftEdgeType5	5
  msoSoftEdgeType6	6

Sub ぼかし()
Dim R As Range
Set R = Range("B2:E7")
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).SoftEdge
　　　.Type = 4
End With
End Sub

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

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

5行目【.Type = 4】
SoftEdgeFormat【ｿﾌﾄｴｯｼﾞﾌｫｰﾏｯﾄ】オブジェクトのぼかしのタイプを設定するType【ﾀｲﾌﾟ】プロパティに4を指定してぼかしを表示します。

Sub ぼかし2()
Dim R As Range
Dim i As Integer
Set R = Range("B2:E7")
ActiveSheet.Shapes.AddShape 1, R.Left, R.Top, R.Width, R.Height
For i = 6 To 0 Step -1
With ActiveSheet.Shapes(1).SoftEdge
　　.Type = i
Application.Wait Now + TimeValue("00:00:01")
End With
Next i
End Sub

3行目【Dim i As Integer】
繰り返し処理の中で、ぼかしのタイプの値を格納するカウンター変数「i」を整数型(Integer)で宣言します。

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

5行目【ActiveSheet.Shapes.AddShape 1, R.Left, R.Top, R.Width, R.Height】
Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトの図形の集まりを表すShapes【ｼｪｲﾌﾟｽ】コレクションの
AddShape【ｱﾄﾞｼｬｲﾌﾟ】メソッドで長方形を作成して図形を表す、Shape【ｼｪｲﾌﾟ】オブジェクトを取得します。
With【ｳｨｽﾞ】ステートメントで指定したり変数に格納したりして、このShape【ｼｬｲﾌﾟ】オブジェクトを直接、参照しないのでAddShapes【ｱﾄﾞｼｪｲﾌﾟｽ】メソッドの引数にカッコは不要です。

6行目【For i = 6 To 0 Step -1】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントを使用して、繰り返し処理の始まりです。カウンター変数「i」には6～0の値を順次代入します。Step【ｽﾃｯﾌﾟ】には加算値を-1に設定します。

7行目【With ActiveSheet.Shapes(1).SoftEdge】
WorkSheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティで引数Index【ｲﾝﾃﾞｯｸｽ】に1を指定してシートにある1番目のShape【ｼｪｲﾌﾟ】オブジェクトを参照します。そのShape【ｼｪｲﾌﾟ】オブジェクトのSoftEdge【ｿﾌﾄｴｯｼﾞ】プロパティでぼかしの書式設定を表す
SoftEdgeFormat【ｿﾌﾄｴｯｼﾞﾌｫｰﾏｯﾄ】オブジェクトを取得して、With【ｳｨｽﾞ】ステートメントで指定します。

8行目【.Type = i】
With【ｳｨｽﾞ】ステートメントで指定したぼかしの書式設定を表すSoftEdgeFormat【ｿﾌﾄｴｯｼﾞﾌｫｰﾏｯﾄ】オブジェクトのTypy【ﾀｲﾌﾟ】プロパティにぼかしのタイプを設定します。設定値はカウンター変数iで繰り返し処理の中で6～0に順次変化します。

9行目【Application.Wait Now + TimeValue(“00:00:01”)】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのWait【ｳｴｲﾄ】メソッドを使用して実行中のマクロを1秒間停止してTypy【ﾀｲﾌﾟ】プロパティで指定したぼかしの図形を1秒間表示して図形が徐々に表示されるように表現します。