如何用VBA批量生成图表和批量删除图表

Sub 批量生成图表()
Dim mydatesourse As Range 
For i = 2 To 5
    Set mydatesoure = Sheets("学生成绩表").Range("a" & i & ":d" & i)
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=mydatesoure, PlotBy:=xlColumns
    ActiveChart.Location where:=xlLocationAsObject, Name:=Sheets("学生成绩表").Name
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Sheets("学生成绩表").Range("a" & i) & "同学的成绩单"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "成绩"
        .SetElement (msoElementLegendTop)
        .SeriesCollection(1).Name = "=学生成绩表!$B$1"
        .SeriesCollection(2).Name = "=学生成绩表!$C$1"
        .SeriesCollection(3).Name = "=学生成绩表!$D$1"
    End With
    ActiveChart.ChartArea.Select
Next
End Sub