expression.Ink(Index)
expression Required. An expression that returns a ColorFormat object.
Index Required Long. The number of the ink.
Remarks
The value of the Ink property can be any number between 0 and 1. Zero (0) means no ink; one (1) means full saturation. For example, 0.5 would be 50% saturation of the specified ink.
Example
This example creates a new shape in the active document, sets the fill color, and specifies the degree of saturation for two of the four CMYK colors.
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