View Single Post
  #2  
Old 25-11-2020, 14:44
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,782
Blog Entries: 11
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:
Code:
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
Reply With Quote