Excel VisualBasic Script

Sub Main()
    Chart.Seriess(1).Points(i).Format.SoftEdge.Type = msoSoftEdgeType1
End Sub