Getting a list of all colors in a Document

Hello,
I need a quick way to get all the colors in a document.
Right now I've revised the code for replace colors to create a list of colors, but this process takes a bit when there are a lot of objects.
I've found the palette object which has a createfromdocument function which gets all the colors and puts them in a palette, but I don't want to save the palette.
If anybody has any advice in this matter, I'd appreciate your time.
Thanks,
Mike

Man, I need exactly the same thing. There was a version for ver. 9 but I'm using 10. I don't know the VB end of this, but if that one could be modified to run on version 10, that'd be great.

[Alex]

Mike,

Your best bet would be to use Palettes.CreateFromDocument, extract the color information from the palette, then close it and delete the created palette file:

Public Sub GetColorInformation()
    Dim c As Color
    Dim pal As Palette
    Dim sFileName As String
    Set pal = Palettes.CreateFromDocument("Dummy", "C:\Temp\Dummy.cpl")
    sFileName = pal.FileName
    For Each c In pal.Colors
        ' ... Do something to the colors ...
    Next c
    pal.Close
    Kill sFileName
End Sub

[Joe]

Sorry to bump such an old thread, but this seems on-topic:

This method works nicely for the colors in the document or selection, but how to access the default, built-in palettes through VBA? Like the Default CMYK palette shown here:



Didn't find their files in any directory and they are not part of the "Fixed" ones which could be loaded either. Any suggestions?

If you right-click one of the colors for a few seconds and select pallete>save as... it will show you where it is saved. In my system : C:\Documents and Settings\Compaq_Owner\Application Data\Corel\CorelDRAW Graphics Suite X4\User Custom Data\Palettes

[Joe]

Yes it would. You may however notice that there is no such Palette by default since that is the custom user Palette directory.

Of course I could just save the default one there (by hand) and then load it (using VBA), but I'd prefer to make something that just works without any extra steps.

Edit: Digging a little deeper - if you would execute this code:

Sub PalTest()

For Each pal In Palettes
    Debug.Print pal.PaletteID
Next pal

End Sub

with the default CMYK and RGB palettes open it would return 5 and 5 as the PaletteID. However in the help for fixed Palettes there is no 5 (and no 4 or 6 either - it just skips from 3 to 7). But if we try to load Palette with ID number 5

Set pal = Palettes.OpenFixed(5)

it doesn't work, gives an error.