Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(ActivePage.CenterX, ActivePage.CenterY, 2)End Sub