Sub Test() Dim rs As Shape, cs As Shape Set rs = ActiveLayer.CreateRectangle2(0, 0, 4, 2) rs.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 Set cs = rs.Clone(0, 3) cs.Fill.UniformColor.CMYKAssign 100, 0, 100, 0End Sub