Palettes.Create

Function Create(Name As String, [FileName As String], [Overwrite As Boolean = False]) As Palette

The Create method creates a new empty custom color palette.


Parameters	Description
Name	Assigns a name to the new palette
FileName	Assigns a path and filename to the palette This parameter is optional.
Overwrite	If set to True, the new palette replaces the default palette. If set to False, the new palette coexists with the default palette. This parameter is optional, and its default value is False.

The following code example creates a new palette and adds 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", 
Application.UserDataPath & _ 
  "Palettes\CyanShades.cpl", True) 
 For lvl = 0 To 100 Step 5 
  c.CMYKAssign lvl, 0, 0, 0 
  pal.AddColor c 
 Next lvl 
 pal.Save 
End Sub