设置青色-品红-黄色-黑色 (CMYK) 颜色值。
expression.SetCMYK(Cyan, Magenta, Yellow, Black)
expression 必需。该表达式返回“应用于”列表中的一个对象。
Cyan Long 类型,必需。该参数表示颜色中的青色部分。可以是从 0 到 255 之间的任意数值。
Magenta Long 类型,必需。该参数表示颜色中的品红部分。可以是从 0 到 255 之间的任意数值。
Yellow Long 类型,必需。该参数表示颜色中的黄色部分。可以是从 0 到 255 之间的任意数值。
Black Long 类型,必需。该参数表示颜色中的黑色部分。可以是从 0 到 255 之间的任意数值。
本示例在活动文档中添加图形,并设置指定图形的 CMYK 填充和线条颜色。
Sub SetCMYKColor()
Dim shpHeart As Shape
Set shpHeart = ActiveDocument.Shapes.AddShape _
(Type:=msoShapeHeart, Left:=100, Top:=100, _
Width:=100, Height:=100)
With shpHeart
.Fill.ForeColor.SetCMYK Cyan:=0, _
Magenta:=255, Yellow:=100, Black:=0
.Line.ForeColor.SetCMYK Cyan:=0, _
Magenta:=255, Yellow:=100, Black:=20
End With
End Sub