Palettes.CreateFromSelection

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

The CreateFromSelection method creates a new custom color palette based on the colors used in a selection of objects.


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. The default value is False. This parameter is optional, and its default value is False.

The following code example displays the number of colors used in the selection:

Sub Test() 
 Dim pal As Palette 
 Set pal = Palettes.CreateFromSelection("Selection Colors", _ 
  Application.UserDataPath & "Palettes\SelectionColors.cpl", True) 
 MsgBox "The selection uses " & pal.ColorCount & " colors" 
 pal.Close 
End Sub