Excel VBA宏仅更新部分图表系列X轴范围问题求助

原代码的核心问题：

• 不必要地循环每个数据系列来设置X轴，而X轴是图表级控件，一个图表的主X轴仅需设置一次，重复操作无意义
• 若橙色系列使用的是次Y轴（双系列图表的常见场景），原代码完全未处理次Y轴范围；若确实存在次X轴，原代码也未覆盖该场景

方案1：统一更新所有图表的X轴范围 #

如果所有图表的X轴（分类轴）都需要同步为G2/G3的值，直接针对图表轴操作即可，无需循环数据系列：

Sub UpdateChartRange()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim chtObj As ChartObject
    Dim minBound As Double
    Dim maxBound As Double
    
    Set wb = Application.ActiveWorkbook
    minBound = wb.Worksheets(1).Range("G2").Value
    maxBound = wb.Worksheets(1).Range("G3").Value
    
    For Each ws In wb.Worksheets
        For Each chtObj In ws.ChartObjects
            ' 设置主X轴范围
            With chtObj.Chart.Axes(xlCategory)
                .MinimumScale = minBound
                .MaximumScale = maxBound
            End With
            ' 若图表存在次X轴，同步设置（防报错处理）
            On Error Resume Next
            With chtObj.Chart.Axes(xlCategory, xlSecondary)
                .MinimumScale = minBound
                .MaximumScale = maxBound
            End With
            On Error GoTo 0
        Next chtObj
    Next ws
    
    MsgBox "Chart range updated successfully!"
End Sub

方案2：更新主Y轴与次Y轴范围（更符合双系列次轴场景） #

如果您实际需求是调整两个系列的Y轴范围（蓝色用主Y轴，橙色用次Y轴），使用以下代码同时处理主、次Y轴：

Sub UpdateChartYRange()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim chtObj As ChartObject
    Dim minBound As Double
    Dim maxBound As Double
    
    Set wb = Application.ActiveWorkbook
    minBound = wb.Worksheets(1).Range("G2").Value
    maxBound = wb.Worksheets(1).Range("G3").Value
    
    For Each ws In wb.Worksheets
        For Each chtObj In ws.ChartObjects
            ' 设置主Y轴范围
            With chtObj.Chart.Axes(xlValue)
                .MinimumScale = minBound
                .MaximumScale = maxBound
            End With
            ' 设置次Y轴范围（防报错处理）
            On Error Resume Next
            With chtObj.Chart.Axes(xlValue, xlSecondary)
                .MinimumScale = minBound
                .MaximumScale = maxBound
            End With
            On Error GoTo 0
        Next chtObj
    Next ws
    
    MsgBox "Chart Y-axis range updated successfully!"
End Sub

关键说明 #

• xlCategory对应X轴（分类轴），xlValue对应Y轴（数值轴）
• xlSecondary参数指定次轴，On Error Resume Next用于避免因图表无次轴而抛出错误
• 移除了冗余的数据系列循环，直接操作图表轴控件，提升执行效率

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