Suggestion - palette from existing drawing

I've been playing around with a macro to create a new palette from an existing .cdr. Maybe someone can short-cut my quest.

The main reason is to augment the already excellent ColorReplacer.

ATM, you have to "know" which colour to replace. But what if you (say) have two greens - one C 100, M 0, Y 90, K 0 and another C 100, M 0, Y 95, K 0.

Both will look the same on the screen, and one or the other could easily be missed. If you had a palette of all colours in the drawing (that would then be accessible in ColorReplacer), you could easily click on and replace (say) green #1 with PMS 334, green #2 with PMS 334, green #3 with PMS 334 etc without knowing what the greens actually are.

Any helpers?

Cheers!

[Alex]

Look at the following method: Application.Palettes.CreateFromDocument. This should help

Eh Eh, silly me.

The code example for Corel 10......

Dim MyPalette as Palette
Set MyPalette = Palettes.CreateFromPalette ("My New Palette", False)

Managed to work it out.

So, I've added a command button to the ColorReplacer form with...

Dim MyPalette As Palette
Set MyPalette = Palettes.CreateFromDocument("CurrentPalette", True)

....and the colors in the drawing are available in the new palette.

Thanks!

still better is:

Sub PaletteausDatei()
    If Documents.Count > 0 Then
        Dim MyPalette As Palette
        For Each MyPalette In Palettes
            If MyPalette.Name = "CurrentPalette" Then
                Palettes("CurrentPalette").Close
            End If
        Next MyPalette
        Set MyPalette = Palettes.CreateFromDocument("CurrentPalette", , True)
    End If
End Sub