color palette and powerclip

To find the colors used in a document I use createfromdocument function, to place all the colors in a palette. But if all the objects in the document are inside a powerclip, the palette is empty, as if I have no colors. Is there a way to fix that?

[shelbym]

I have only tested this in X4, but it seems to work. Basically I copy all the shapes in the powerclip to another layer, create the palette, then delete the layer.

Sub CreatePalette()
    Dim s As Shape
    Dim sr As New ShapeRange
    Dim lr As Layer
    Dim pal As Palette
    
    Set lr = ActivePage.CreateLayer("PowerClip")
    
    For Each s In ActivePage.Shapes
        If Not s.PowerClip Is Nothing Then
            s.PowerClip.Shapes.FindShapes.CopyToLayer lr
        End If
    Next s
    
    Set pal = Palettes.CreateFromDocument("Document Colors", _
              Application.UserDataPath & "Palettes\DocColors.cpl", True)
              
    lr.Delete
End Sub

Hope it works for you.

-Shelby

[Joe]

I did it by adding ALL the shapes on the page to a selection (iterating through the shapes inside the powerclip as well) and then calling a Palettes.CreateFromSelection command. But you'd have to do that for each page. I may be a little faster than copying everything out to a layer, though.

Thank you both for your help

[ostwald]

have doubt ..
as I could do to carry a 'frame' colors
q were created within the document .......
here are some picture



salud..