VBA设置Excel图表主次坐标轴刻度最值运行报错如何解决？

错误原因 #

• 坐标轴类型参数使用错误：xlCategory代表类别轴（通常为X轴），你要设置的次Y轴属于数值轴，对应参数为xlValue，Excel默认图表不存在次类别轴，访问不存在的坐标轴对象就会触发该运行时错误。
• 前置校验缺失：需要提前确认图表中已有数据系列绑定到次数值轴，次坐标轴处于启用状态，否则访问次轴时也会触发相同报错。

修正后代码 #

Sub Axis_Values()
    Dim Cht As Chart
    Set Cht = ActiveSheet.ChartObjects("Chart 1").Chart
    
    '设置主类别轴（X轴）刻度
    Cht.Axes(xlCategory, xlPrimary).MinimumScale = Range("E2").Value
    Cht.Axes(xlCategory, xlPrimary).MaximumScale = Range("F2").Value
    
    '设置次数值轴（次Y轴）刻度，替换原有错误的xlCategory参数即可
    Cht.Axes(xlValue, xlSecondary).MinimumScale = Range("G2").Value
    Cht.Axes(xlValue, xlSecondary).MaximumScale = Range("H2").Value
End Sub

可选优化（避免次轴未启用时报错） #

如果无法确定次轴是否已经启用，可以增加错误捕获逻辑避免运行中断：

Sub Axis_Values_Safe()
    Dim Cht As Chart
    Dim secAxis As Axis
    Set Cht = ActiveSheet.ChartObjects("Chart 1").Chart
    
    '设置主X轴刻度
    With Cht.Axes(xlCategory, xlPrimary)
        .MinimumScale = Range("E2").Value
        .MaximumScale = Range("F2").Value
    End With
    
    '尝试获取次Y轴，不存在则给出提示
    On Error Resume Next
    Set secAxis = Cht.Axes(xlValue, xlSecondary)
    On Error GoTo 0
    
    If Not secAxis Is Nothing Then
        secAxis.MinimumScale = Range("G2").Value
        secAxis.MaximumScale = Range("H2").Value
    Else
        MsgBox "当前图表未启用次数值轴，请先将对应数据系列绑定到次坐标轴后再运行宏"
    End If
End Sub

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