如何修改Excel VBA代码实现图表双坐标轴缩放？

原代码区分X/Y轴的逻辑 #

原代码里通过cht.Chart.Axes(xlValue)定位Y轴，这是因为Excel VBA里用常量xlValue代表数值型Y轴，而X轴通常用xlCategory（分类轴）或同样用xlValue（如果是数值型X轴，比如散点图）。原代码只处理了Y轴的刻度，所以只能缩放Y轴。

修改思路 #

要同时缩放X、Y轴，需要：

• 额外提取每个系列的X轴数值（srs.XValues）
• 计算X轴的全局最大、最小值
• 对X轴应用同样的缩放逻辑（加Padding）

修改后的完整代码 #

Sub AdjustBothAxes()
    Dim cht As ChartObject
    Dim srs As Series
    Dim FirstTime As Boolean
    ' Y轴相关变量
    Dim YMaxNumber As Double, YMinNumber As Double
    Dim YMaxChartNumber As Double, YMinChartNumber As Double
    ' X轴相关变量
    Dim XMaxNumber As Double, XMinNumber As Double
    Dim XMaxChartNumber As Double, XMinChartNumber As Double
    Dim Padding As Double

    Padding = 0.1  ' 缩放比例，0-1之间

    Application.ScreenUpdating = False
    
    For Each cht In ActiveSheet.ChartObjects
        FirstTime = True
        
        For Each srs In cht.Chart.SeriesCollection
            ' 处理Y轴数值
            YMaxNumber = Application.WorksheetFunction.Max(srs.Values)
            YMinNumber = Application.WorksheetFunction.Min(srs.Values)
            
            ' 处理X轴数值
            XMaxNumber = Application.WorksheetFunction.Max(srs.XValues)
            XMinNumber = Application.WorksheetFunction.Min(srs.XValues)
            
            ' 初始化全局最大最小值
            If FirstTime = True Then
                YMaxChartNumber = YMaxNumber
                YMinChartNumber = YMinNumber
                XMaxChartNumber = XMaxNumber
                XMinChartNumber = XMinNumber
            Else
                ' 更新Y轴全局极值
                If YMaxNumber > YMaxChartNumber Then YMaxChartNumber = YMaxNumber
                If YMinNumber < YMinChartNumber Or YMinChartNumber = 0 Then YMinChartNumber = YMinNumber
                ' 更新X轴全局极值
                If XMaxNumber > XMaxChartNumber Then XMaxChartNumber = XMaxNumber
                If XMinNumber < XMinChartNumber Or XMinChartNumber = 0 Then XMinChartNumber = XMinNumber
            End If
            
            FirstTime = False
        Next srs
        
        ' 设置Y轴刻度
        cht.Chart.Axes(xlValue).MinimumScale = YMinChartNumber * (1 - Padding)
        cht.Chart.Axes(xlValue).MaximumScale = YMaxChartNumber * (1 + Padding)
        
        ' 设置X轴刻度（根据X轴类型选择对应代码）
        ' 情况1：X轴是数值型（如散点图、数值折线图）
        cht.Chart.Axes(xlValue, xlPrimary).MinimumScale = XMinChartNumber * (1 - Padding)
        cht.Chart.Axes(xlValue, xlPrimary).MaximumScale = XMaxChartNumber * (1 + Padding)
        
        ' 情况2：X轴是分类型（如文本标签、日期分类），注释上面两行，启用下面两行
        ' cht.Chart.Axes(xlCategory).MinimumScale = XMinChartNumber
        ' cht.Chart.Axes(xlCategory).MaximumScale = XMaxChartNumber
    
    Next cht

    Application.ScreenUpdating = True
End Sub

关键说明 #

• 新增了X轴的极值计算逻辑，通过srs.XValues获取每个系列的X轴数据
• 设置X轴时必须区分数值型X轴和分类型X轴：
  • 数值型X轴支持按比例缩放，使用xlValue参数
  • 分类型X轴仅能设置显示的起止分类，无法按比例添加Padding，使用xlCategory参数
• 原代码的Padding变量对X/Y轴同时生效，可根据需求调整取值（0-1之间）

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