Skip to content

Latest commit

 

History

History
66 lines (48 loc) · 1.57 KB

Publisher.ColorCMYK.Yellow.md

File metadata and controls

66 lines (48 loc) · 1.57 KB
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
ColorCMYK.Yellow property (Publisher)
vbapb10.chm2621446
vbapb10.chm2621446
Publisher.ColorCMYK.Yellow
2eaa27a4-a9bb-e18a-bd0e-c9cf07c567f5
06/06/2019
medium

ColorCMYK.Yellow property (Publisher)

Sets or returns a Long that represents the yellow component of a CMYK color. Value can be any number between 0 and 255. Read/write.

Syntax

expression.Yellow

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 shapes CMYK colors 
 shpStar.Fill.ForeColor.CMYK.SetCMYK _ 
 Cyan:=lngCyan, Magenta:=lngMagenta, _ 
 Yellow:=lngYellow, Black:=lngBlack 
End Sub

[!includeSupport and feedback]