本文由日文译成中文。

这是使用 Excel VBA 更改工作表中图像或形状(自动形状)阴影颜色的记录。

ForeColor “属性用于阴影颜色,”RGB “或 ”SchemeColor “属性用于指定颜色。

< Sponsored Links >





更改图像或形状阴影颜色的示例(自动成型)

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
影色
影色

< Sponsored Links >