TintAndShade Property

expression.TintAndShade

expression    Required. An expression that returns a ColorFormat object.

Remarks

You can enter a number from -1 (darkest) to 1 (lightest) for the TintAndShade property, 0 (zero) being neutral.

Example

This example creates a new shape in the active document, sets the fill color, and lightens the color shade.

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