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