Sub DocumentOpen() Dim doc As Document Set doc = OpenDocument("C:\Flower.cdr") With doc .AddPagesEx 1, 10, 10 .ActiveLayer.CreateEllipse(0, 3, 5, 1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0 .Save End WithEnd Sub