Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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