Hi all

I had a problem, next code not create palette uncluded all color in my document, for example it's ignored colors powerclips in other powepclipd:

Sub Test()
Dim pal As Palette
Set pal = Palettes.CreateFromDocument("Document Colors", _
Application.UserDataPath & "Palettes\DocColors.cpl", True)
MsgBox "The document uses " & pal.ColorCount & " colors"
pal.Close
End Sub