| Name | Type | Description |
|---|---|---|
| ColorString |
String
|
Sub CreateColor1() Dim c As Color Set c = CreateColor c.CMYKAssign 100, 0, 0, 0 ActiveDocument.Selection.Shapes(1).Fill.ApplyUniformFill c End Sub Sub CreateColor2() Dim c As New Color c.CMYKAssign 100, 0, 0, 0 ActiveSelection.Shapes(1).Fill.ApplyUniformFill c End Sub Sub CreateColor3() ActiveShape.Fill.UniformColor.CMYKAssign 100, 0, 0 ,0 End Sub