Palettes.CreateFromDocument

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

The CreateFromDocument method creates a new custom color palette based on the colors used in the active document.


Parameter	Description
Name	Specifies the name of the new palette
FileName	Specifies the path and filename for the palette. This parameter is optional.
Overwrite	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. This parameter is optional, and its default value is False.

The following VBA example displays the number of colors used in the active document.

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