TintAndShade 属性

返回 Single 类型值，该值代表使指定形状的颜色是变亮，还是变暗。可读写。

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

说明

TintAndShade 属性值的输入范围为 -1（最暗）到 1 （最亮），0（零）表示中性。

示例

本示例在当前文档中新建一个形状，并设置填充颜色，然后使彩色底纹变亮。

Sub PrinterPlate()
    Dim shpHeart As Shape

    Set shpHeart = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)

    With shpHeart.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