VC与Ｅxcel混合编程，怎么样去年掉次要网格线？

这是有网格线的图表这是无网格线的图表我想将网格线去掉，变成无网格线的图表，请问该怎么操作呀？下面是宏录制的VB代码
Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "IPCA"
    End With
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = False
    ActiveSheet.Shapes("图表 1").ScaleWidth 1.26, msoFalse, msoScaleFromTopLeft
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Interior
        .ColorIndex = 2
        .PatternColorIndex = 2
        .Pattern = xlSolid
    End With
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("Book1").Activate
    Range("J20").Select
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("图表 1").IncrementLeft -63.75
    ActiveSheet.Shapes("图表 1").IncrementTop -95.25