ColorCMYK.Cyan property (Publisher)
Sets or returns a Long that represents the cyan component of a CMYK color. Value can be any number between 0 and 255. Read/write.
Syntax
expression.Cyan
expression A variable that represents a ColorCMYK object.
Return value
Long
Example
This example creates two new shapes, and then sets the CMYK fill color for one shape and the CMYK values of the second shape to the same CMYK values.
Sub ReturnAndSetCMYK()
Dim lngCyan As Long
Dim lngMagenta As Long
Dim lngYellow As Long
Dim lngBlack As Long
Dim shpHeart As Shape
Dim shpStar As Shape
Set shpHeart = ActiveDocument.Pages(1).Shapes.AddShape _
(Type:=msoShapeHeart, Left:=100, _
Top:=100, Width:=100, Height:=100)
Set shpStar = ActiveDocument.Pages(1).Shapes.AddShape _
(Type:=msoShape5pointStar, Left:=200, _
Top:=100, Width:=150, Height:=150)
With shpHeart.Fill.ForeColor.CMYK
.SetCMYK 10, 80, 200, 30
lngCyan = .Cyan
lngMagenta = .Magenta
lngYellow = .Yellow
lngBlack = .Black
End With
'Sets new shape to current shape's CMYK colors
shpStar.Fill.ForeColor.CMYK.SetCMYK _
Cyan:=lngCyan, Magenta:=lngMagenta, _
Yellow:=lngYellow, Black:=lngBlack
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for