Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Works on all the chart sheets in the active workbook

Sub ChartType2()     Dim myChart As Chart     For Each myChart In ActiveWorkbook.Charts         myChart.Type = xlArea     Next myChart End Sub