TintAndShade 属性

返回或设置一个 Single，可读写。它用于使指定图形的颜色变浅或加深。

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

可以为 TintAndShade 属性输入从 -1（最深）到 1（最浅）的数，0（零）表示中间色。

示例

本示例在活动文档中新建一个图形，设置填充颜色，使阴影颜色变浅。

Sub PrinterPlate()

    Dim s As Shape

    Set s = ActiveSheet.Shapes.AddShape( _
        Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)

    With s.Fill.ForeColor
        .CMYK = 16111872
        .TintAndShade = 0.3
        .OverPrint = msoTrue
        .Ink(Index:=1) = 0
        .Ink(Index:=2) = 1
        .Ink(Index:=3) = 1
        .Ink(Index:=4) = 0
    End With

End Sub