SetCMYK Method

Microsoft Publisher Visual Basic

expression.SetCMYK(Cyan, Magenta, Yellow, Black)

expression    Required. An expression that returns a ColorCMYK object.

Cyan   Required Long. A number that represents the cyan component of the color. Value can be any number between 0 and 255.

Magenta   Required Long. A number that represents the magenta component of the color. Value can be any number between 0 and 255.

Yellow   Required Long. A number that represents the yellow component of the color. Value can be any number between 0 and 255.

Black   Required Long. A number that represents the black component of the color. Value can be any number between 0 and 255.

Example

This example sets the CMYK color for the specified shape.

Sub SetCMYKColor()
    Dim shpStar As Shape

    Set shpStar = ActiveDocument.Pages(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=72, _
        Top:=72, Width:=150, Height:=150)
    shpStar.Fill.ForeColor.CMYK.SetCMYK Cyan:=0, _
        Magenta:=255, Yellow:=255, Black:=50
End Sub