Sub CurveClosed() Dim s As Shape Set s = ActiveSelection.Shapes(1) If s.Type = cdrCurveShape Then s.Curve.Closed = True End If s.Fill.ApplyFountainFill CreateColorEx(5005, 255, 0, 0), _ CreateColorEx(5005, 0, 0, 0), 1End Sub