Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Looping through the ChartObjects collection
Sub ChartType()
    Dim myChart As ChartObject
    For Each myChart In ActiveSheet.ChartObjects
        myChart.Chart.Type = xlArea
    Next myChart
End Sub