Excel VisualBasic Script

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