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