Ink 属性

该属性返回或设置一个 Single 类型的数值，表示指定颜料的浸润程度。可读写。

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

Index  Long 类型，必需。颜料的颜色数。

说明

Ink 属性的数值可以是 0 到 1 之间的任意数值。0 表示没有颜料；1 表示完全浸润。例如，0.5 将使指定的颜料浸润程度为 50%。

示例

本示例在活动文档中创建一个新图形，设置其填充颜色，并指定四种 CMYK 颜色中两种颜色的浸润程度。

Sub TintShade()
    Dim shpHeart As Shape
    Set shpHeart = ActiveDocument.Shapes.AddShape( _
        Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)
    With shpHeart.Fill.ForeColor
        .SetCMYK Cyan:=0, Magenta:=125, Yellow:=12, Black:=25
        .TintAndShade = 0.3
        .OverPrint = msoTrue
        .Ink(Index:=1) = 0.3
        .Ink(Index:=2) = 0.7
    End With
End Sub