影の透明度

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

影の透明度
影の透明度

 

< スポンサーリンク >