TintAndShade Property
Returns or sets a Single that lightens or darkens the color of a specified shape. Read/write.
expression.TintAndShade
expression Required. An expression that returns one of the objects in the Applies To list.
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 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