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