Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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