Sub DocumentCreate() Dim doc As Document Set doc = CreateDocument() doc.ActiveLayer.CreateEllipse (0, 3, 5, 1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0 doc.SaveAs "C:\My New Document"End Sub