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

作成した図形（シェイプ）に影を設定する方法

図形に影を設定するには、Shape【ｼｪｲﾌﾟ】オブジェクトまたはShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションの下位オブジェクトにあたるShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトをShadow【ｼｬﾄﾞｳ】プロパティで取得します。

影の書式を表す、ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトのメンバーであるプロパティを使用して影に、さまざまな設定をします。

Shadow【ｼｬﾄﾞｳ】プロパティ

図形の影の操作の対象となるShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトを取得するには、Shape【ｼｪｲﾌﾟ】オブジェクト、またはShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションのShadow【ｼｬﾄﾞｳ】プロパティを使用します。

Shadow【ｼｬﾄﾞｳ】プロパティの書式と設定値の説明

オブジェクト.Shadow
【戻り値】ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクト

ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトの主なプロパティ一覧

Type【ﾀｲﾌﾟ】プロパティ

影のタイプを指定するには、ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトのType【ﾀｲﾌﾟ】プロパティを使用します。

Type【ﾀｲﾌﾟ】プロパティの書式と設定値の説明

オブジェクト.Type = 設定値

MsoShadowType列挙型一覧表

20種類の影のスタイルを表示するコート例

Sub 影作成()
Dim i As Long
For i = 1 To 20
With ActiveSheet.Shapes.AddShape(1, Range("B" & i).Left, _
    Range("B" & i).Top, 15, 15)
   .Shadow.Type = i
End With
Next i
End Sub

※Type【ﾀｲﾌﾟ】プロパティで作成した影は、Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティ（影の表示切替）Blur【ﾌﾞﾛｱｰ】プロパティ（ぼかしの設定）などのプロパティは使用できません。

ForeColor【ﾌｫｱｶﾗｰ】プロパティ

影に色を設定するには、ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトのForeColor【ﾌｫｱｶﾗｰ】プロパティを使用してColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトを取得します。ColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトは色をRGBプロパティのRGB関数で指定したりSchemeColor【ｽｷｰﾑｶﾗｰ】プロパティを使用して色番号で指定します。ForeColor【ﾌｫｱｶﾗｰ】プロパティを指定しない場合は黒が指定されます。値の取得と設定ができます。

ForeColor【ﾌｫｱｶﾗｰ】プロパティの書式と設定値の説明

【取得】
オブジェクト.ForeColor.RGBまたは.SchemeColor
【戻り値】長整数型(Long)
【設定】
オブジェクト.ForeColor.RGBまたは.SchemeColor = 設定値

赤色の影を設定したコード例

Sub 影色()
Dim i As Long
With ActiveSheet.Shapes.AddShape(1, Range("B2").Left, _
    Range("B2").Top, 60, 60).Shadow
   .Type = 6
   .ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub

実行結果

Transparency 【ﾄﾗﾝｽﾊﾟﾚﾝｼｰ】プロパティ

影に透明度を設定するには、ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトのTransparency 【ﾄﾗﾝｽﾊﾟﾚﾝｼｰ】プロパティを使用します。値の取得と設定ができます。

Transparency 【ﾄﾗﾝｽﾊﾟﾚﾝｼｰ】プロパティの書式と設定値の説明

【取得】
オブジェクト.Transparency
【戻り値】倍精度浮動小数点型 (Double)
【設定】
オブジェクト.Transparency = 設定値

影の透明度を不透明に設定したコード例

Sub 影色()
Dim i As Long
With ActiveSheet.Shapes.AddShape(1, Range("B2").Left, _
    Range("B2").Top, 60, 60).Shadow
   .Type = 6
   .Transparency = 0
End With
End Sub

実行結果

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティ

影の表示の切り替えをするには、ShadowFormat【ｼｬﾄﾞｳﾌｰﾏｯﾄ】オブジェクトのVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを使用します。Type【ﾀｲﾌﾟ】プロパティで影の種類を選択している場合は影のタイプは無視されます。値の取得および設定ができます。

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの書式と設定値の説明

【取得】
オブジェクト.Visible
【戻り値】ブール型(Boolean)
【設定】
オブジェクト.Visible = 設定値

OffsetX【ｵﾌｾｯﾄｴｯｸｽ】OffsetY【ｵﾌｾｯﾄﾜｲ】プロパティ

指定された図形を基準に水平方向（横）の位置に影を設定するには、OffsetX【ｵﾌｾｯﾄｴｯｸｽ】プロパティを使用します。ポイント単位で指定し、正の値を指定した場合は図形の右、負の値を指定した場合は図形の左に影が設定されます。

指定された図形を基準に垂直方向（縦）の位置に影を設定するには、OffsetY【ｵﾌｾｯﾄﾜｲ】プロパティを使用します。ポイント単位で指定し、正の値を指定した場合は図形の下、負の値を指定した場合は図形の上に影が設定されます。

値の取得および設定ができます。【戻り値】単精度浮動小数点型 (Single) の値

OffsetX【ｵﾌｾｯﾄｴｯｸｽ】OffsetY【ｵﾌｾｯﾄﾜｲ】プロパティの書式と設定値

オブジェクト.OffsetX = 設定値
オブジェクト.OffsetY = 設定値

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティで影作成コード例

Sub 影作成2()
Dim i As Long
With ActiveSheet.Shapes.AddShape(1, Range("B2").Left, _
    Range("B2").Top, 60, 60).Shadow
 .Visible = True
 .Transparency = 0.5
 .OffsetX = 5
 .OffsetY = 5
End With
End Sub

実行結果

Blur【ﾌﾞﾛｱｰ】プロパティ

影のぼかしを設定するには、ShadowFormat【ｼｬﾄﾞｳﾌｫｰﾏｯﾄ】オブジェクトのBlur【ﾌﾞﾛｱｰ】プロパティを使用します。値の取得と設定ができます。

Blur【ﾌﾞﾛｱｰ】プロパティの書式と設定値

【取得】
オブジェクト.Blur
【戻り値】単精度浮動小数点型 (Single)
【設定】
オブジェクト.Blur = 設定値

影のぼかしを20に設定したコード例

Sub 影ぼかし()
Dim i As Long
With ActiveSheet.Shapes.AddShape(1, Range("B2").Left, _
    Range("B2").Top, 60, 60).Shadow
 .Visible = True
 .Transparency = 0.5
 .OffsetX = 5
 .OffsetY = 5
 .Blur = 20
End With
End Sub

実行結果

以上で、図形（シェイプ）に影を設定するについての解説を終了します。ありがとうございました。