|   |   | 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.