SetCMYK 方法

       

设置青色-品红-黄色-黑色 (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