Application.Palettes

Property Palettes As Palettes

The Palettes property returns the collection of open color palettes.

The Palettes property returns a read-only value.

The following code example displays the name of all palettes in use, and the number of colors in each palette, in a message box.

Sub PalettesList() 
 Dim pal As Palette 
 Dim s As String 
 s = "Active palettes. " 
 For Each pal In Palettes 
  s = s & pal.Name & " (" & pal.ColorCount & " colors)" 
 Next pal 
 MsgBox s 
End Sub