返回或设置一个 Single,可读写。它用于使指定图形的颜色变浅或加深。
expression.TintAndShade
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