Excel VBA シート上の画像や図形の影の透明度を変える-Shadow.Transparency

Excel VBAでシート上にある画像や図形の影の透明度を変更する記録です。

影の透明度を変更するには「Transparency」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >

例

透明度の設定は倍精度浮動小数点型（Double）で設定します。

影の形を16番目、影の色を青に設定し、不透明（透明度を0）に設定してみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp.Shadow
        .Type = msoShadow16
        .ForeColor.RGB = RGB(0, 0, 255)
        .Transparency = 0
    End With
End Sub

影の形を16番目、影の色を青に設定し、透明度を70%に設定してみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp.Shadow
        .Type = msoShadow16
        .ForeColor.RGB = RGB(0, 0, 255)
        .Transparency = 0.7
    End With
End Sub