Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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