Excel VBA シート上の画像や図形（オートシェイプ）の影の色を変える-Shadow.ForeColor

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

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

< スポンサーリンク >

画像や図形（オートシェイプ）の影の色を変える例

RGB

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

SchemeColorで色を変えてみます。

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

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