影色

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

影の色は「ForeColor」プロパティを使い、色の指定は「RGB」プロパティまたは「SchemeColor」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >





RGBで色を変えてみます。

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

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

影色
影色

 

SchemeColorで色を変えてみます。

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

    With shp.Shadow
        .Type = msoShadow43
        .ForeColor.SchemeColor = 15
    End With
End Sub

影色
影色

 

< スポンサーリンク >