Code: Select all
ActiveChart.Axes(xlCategory).MinimumScale = 4000 ' 0
ActiveChart.Axes(xlCategory).MaximumScale = 10000
ActiveChart.Axes(xlCategory).MajorUnit = 1000 ' 2000
ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "0" ' Number
ActiveChart.Axes(xlCategory).HasMajorGridlines = True
ActiveChart.Axes(xlCategory).MajorGridlines.Border.LineStyle = xlDash
ActiveChart.Axes(xlCategory).MajorGridlines.Border.Color = RGB(160, 160, 160) ' Gray