| Name | Type | Description |
|---|---|---|
| Name |
String
|
|
| FileName |
String
|
|
| Overwrite |
Boolean
|
Specifies whether to overwrite the default palette. If this value is set to True, the new palette replaces the default palette. If it is set to False, the new palette coexists with the default palette. |
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.xml", True)
For lvl = 0 To 100 Step 5
c.CMYKAssign lvl, 0, 0, 0
pal.AddColor c
Next lvl
pal.Save
End Sub