Excel VBA 図形（シェイプ）に光彩を設定する

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

• オブジェクト（必須）
  Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのShapes【ｼｪｲﾌﾟｽ】プロパティで取得した光彩を設定する図形を表すShape【ｼｪｲﾌﾟ】オブジェクトのGlow【ｸﾞﾛｰ】プロパティで取得した
  光彩の書式設定を表すGlowFormat【ｸﾞﾛｰﾌｫｰﾏｯﾄ】オブジェクトを指定します。
• 設定値（必須）
  光彩の幅をポイント単位で設定します。1ポイントは約0.35ミリでセルの行の高さと同じ単位になります。単精度浮動小数点型(Single)の値を使用します。光彩の効果をクリアする場合はこの設定値に0を設定します。

Sub 光彩()
Dim R As Range
Set R = Range("B2:C4")
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).Glow
    .Color = RGB(255, 0, 0)
    .Transparency = 0.5
    .Radius = 20
End With
End Sub

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

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

4行目【 .Color = RGB(255, 0, 0)】
With【ｳｨｽﾞ】ステートメントで指定した光彩の書式設定を表すGlowFormat【ｸﾞﾛｰﾌｫｰﾏｯﾄ】オブジェクトのColor【ｶﾗｰ】プロパティを使用して設定値をRGB関数を使用して赤に設定します。

5行目【.Transparency = 0.5】
With【ｳｨｽﾞ】ステートメントで指定した光彩の書式設定を表すGlowFormat【ｸﾞﾛｰﾌｫｰﾏｯﾄ】オブジェクトの色の透明度を設定するTransparency 【ﾄﾗﾝｽﾊﾟﾚﾝｼｰ】プロパティを使用して透明度を設定します。

設定値は0（不透明）～1.0（透明）の間の単精度浮動小数点型(Single)の値を使用します。

6行目【.Radius = 20】
With【ｳｨｽﾞ】ステートメントで指定した光彩の書式設定を表すGlowFormat【ｸﾞﾛｰﾌｫｰﾏｯﾄ】オブジェクトの光彩の幅の大きさを表すRadius【ﾗﾃﾞｨｳｽ】プロパティに20ポイントを設定して図形に光彩を設定します。