Excel VisualBasic Script

Sub ModifyChart1()
    ActiveSheet.ChartObjects("Chart 1").activate
    ActiveChart.Type = xlArea
End Sub