Sub Test() Dim s1 As Shape, s2 As Shape Dim s As Shape Set s1 = ActiveLayer.CreateEllipse2(4, 5, 2) Set s2 = ActiveLayer.CreateRectangle2(2, 1, 4, 4) Set s = s1.Weld(s2) s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0End Sub