| Name | Type | Description |
|---|---|---|
| Color |
Sub Test()
Dim pal As Palette
Dim lvl As Long
Dim c As New Color
Set pal = Palettes.Create("Shades of Cyan",, True)
For lvl = 0 To 100 Step 5
c.CMYKAssign lvl, 0, 0, 0
pal.AddColor c
Next lvl
pal.Save
End Sub