How to Select unique colors in shaperange

[aakkaarr]

How to Select unique colors in shaperange

[shelbym]

Here is a fun little way to do this using CQL:

Sub CQLColors()
    Dim sGroup As Shape
    Dim strColors As String
    
    Set sGroup = ActiveSelectionRange.Group
        
    strColors = sGroup.Evaluate("@children.foreach(array(), $lasteval.addarray($item.colors)).unique.convert($item.name).join(', ')")
    
    sGroup.Ungroup
    
    MsgBox strColors
End Sub

Happy Coding,

-Shelby

[aakkaarr]

Thanks Shelby,
when selecting Red and Black the msgbox says Black, unnamed color
I need to find color value like if CMYK then the values of C,Y,M,K