Sub Test() Dim s As Shape Dim lr As Layer Set lr = ActiveLayer ActiveDocument.DrawingOriginX = 0 ActiveDocument.DrawingOriginY = 0 Set s = lr.CreateEllipse2(0, 0, 1) s.Fill.UniformColor.RGBAssign 255, 255, 0 'Yellow Set s = lr.CreateEllipse2(0, 2, 2, 1) s.Fill.UniformColor.RGBAssign 0, 255, 0 'GreenEnd Sub