macro palette creation

[ostwald]

' shelbym '
he was the q wrote this code which is great
.. I have doubt ..
as I could do to carry a 'frame' colors
q were created within the document .......
here are some picture

Sub CreatePalette_Click()
    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