Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(2, 2, 1) s.Fill.ApplyUniformFill ActivePalette.Color(15)End Sub