Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Format Soft Edges With Loop

Sub FormatSoftEdgesWithLoop()     Dim myChart As Chart     Dim ser As Series     Set myChart = ActiveChart     Set ser = myChart.SeriesCollection(1)     For i = 1 To 6         ser.Points(i).Format.SoftEdge.Type = i     Next i End Sub