Looping through the ChartObjects collection: changes the chart type of every embedded chart on the active sheet.
Sub ChartType() Dim myChart As ChartObject For Each myChart In ActiveSheet.ChartObjects myChart.Chart.Type = xlArea Next myChart End Sub