有没有办法在表面轮廓图上显示水平和垂直网格线？

Question

我正在 VBA 中创建 xlSurfaceTopView 类型的图表。我希望图表具有水平和垂直网格线，但以下 With 语句的最后两行只导致出现两条网格线。有没有办法显示所有网格线？

    With myChart.Chart
        .SetSourceData rng
        .ChartType = xlSurfaceTopView
        .ChartTitle.Text = "Contour Map"
        .HasLegend = True
        .Legend.Position = xlLegendPositionBottom
        .Axes(xlValue).MinimumScale = WorksheetFunction.RoundDown(min, 1)
        .Axes(xlValue).MaximumScale = WorksheetFunction.RoundUp(max, 1)
        .Axes(xlValue).majorUnit = majorUnit
        .Axes(xlValue).HasMajorGridlines = True ' from macro recorder
        .Axes(xlSeries).TickLabelSpacing = 1
        .Axes(xlSeries).TickLabelPosition = xlHigh
        .Axes(xlCategory).TickLabelPosition = xlHigh
        .Axes(xlCategory).ReversePlotOrder = True
        .Axes(xlCategory).CategoryNames = Range("revGridRowHeader")
        .SetElement (msoElementPrimaryCategoryGridLinesMajor)
        .SetElement (msoElementSeriesAxisGridLinesMajor)
    End With