Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Use For Each to loop through all chart objects
Sub ChangeCharts()
    Dim myChart As ChartObject
    For Each myChart In Sheets("Sheet1").ChartObjects
        myChart.Chart.ChartType = xlLine
    Next myChart
End Sub