Object Model Reference : Classes : P : Palette : Methods : Palette.AddColor |
Sub AddColor(Color As Color)
Member of Palette
The AddColor method adds a color to a custom color palette.
The following VBA example creates a new palette and adds 21 colors with different shades of cyan varying by steps of 5%.
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 |
Copyright 2013 Corel Corporation. All rights reserved.