| Name | Type | Description |
|---|---|---|
| Name |
String
|
|
| FileName |
String
|
|
| Overwrite |
Boolean
|
Specifies whether to overwrite the default palette. If this parameter 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
Set pal = Palettes.CreateFromDocument("Document Colors", _
Application.UserDataPath & "Palettes\DocColors.xml", True)
MsgBox "The document uses " & pal.ColorCount & " colors"
pal.Close
End Sub