如何在Excel VBA中设置Y轴数值标签的绝对间距（步长5000）

你遇到的问题是因为.TickMarkSpacing和.TickLabelSpacing仅适用于分类轴（xlCategory），对数值轴（xlValue）无效。要给数值轴设置固定的绝对步长（比如5000），需要使用.MajorUnit属性，并关闭自动刻度设置。

修改后的代码如下：

With createChart.Chart
    .ClearToMatchStyle
    .ChartStyle = 230
    .Type = xlLine
    .HasTitle = True
    .ChartTitle.Text = "Liquiditätsverlauf"
    '.ApplyLayout (4)
    With .Axes(xlValue)
        .MinimumScale = -50000 * (1 - padding)
        .MaximumScale = 200000 * (1 + padding)
        .HasMajorGridlines = True
        .MajorGridlines.Border.Color = RGB(0, 0, 255)
        .MajorGridlines.Border.LineStyle = xlDash
        .MajorTickMark = xlTickMarkOutside
        ' 替换无效属性，设置固定步长5000
        .MajorUnitIsAuto = False ' 必须关闭自动刻度，否则Excel会覆盖自定义设置
        .MajorUnit = 5000 ' 指定数值轴刻度的绝对步长
    End With
End With

补充说明： #

• 如果需要设置次要刻度的步长，可以使用.MinorUnit和.MinorUnitIsAuto属性，逻辑与主刻度一致。
• 确保.MinimumScale和.MaximumScale的范围能被设置的步长合理覆盖，避免出现刻度显示异常的情况。

内容的提问来源于stack exchange，提问作者glades