View Single Post
Old 25-11-2020, 14:44
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default How to Select unique colors in shaperange

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($', ')")
    MsgBox strColors
End Sub
Happy Coding,

Reply With Quote