TintAndShade 属性

返回一个 Single 类型的数值，该数值代表指定图形颜色的明暗。可读写。

expression   必需。该表达式返回一个 ColorFormat 对象。

说明

可以为 TintAndShade 属性输入一个 -1（最暗）到 1（最亮）之间的数字，其中 0（零）为中等亮度。

示例

本示例在活动文档中创建一个新图形，设置填充颜色，并使颜色底纹变亮。

Sub NewTintedShape()
    Dim shpHeart As Shape
    Set shpHeart = ActiveDocument.Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)
    With shpHeart.Fill.ForeColor
        .RGB = RGB(Red:=255, Green:=28, Blue:=0)
        .TintAndShade = 0.3
    End With
End Sub