Sub Test() Dim s1 As Shape Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) s1.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0) s1.ApplyStyle "Default Graphic"End Sub