Sub Test() Dim doc As Document Dim e1 As Shape, e2 As Shape Set doc = CreateDocument() Set e1 = doc.ActiveLayer.CreateEllipse2(4, 3, 2) Set e2 = doc.ActiveLayer.CreateEllipse2(4, 5, 3) ' Here e2 is selected. Just add e1 to selection e1.Selected = True Set e1 = doc.Selection.Combine e1.Fill.UniformColor.CMYKAssign 100, 0, 0, 0End Sub