Chieri, Just for fun how about building your color list all with CQL. ;-) I know, sounds crazy. The following will find all the unique color names of the active selection and add them to a ComboBox. Dim s As Shape Dim strColors As String Set s = ActiveSelectionRange.Group strColors = s.Evaluate( "@children.foreach(array(), $lasteval.addarray($item.colors)).unique.convert($item.name).join(',')" ) ComboBox1.Clear ComboBox1.List = Split(strColors, "," ) s.Ungroup Now that is some fun with CQL. :-) -Shelby
↧