Access VBA调整图表坐标轴最值：主轴有效次轴无效问题求助

针对压缩修复数据库后，图表次轴范围设置代码失效的问题，可尝试以下几种解决方法：

1. 强制图表重绘替代Requery #

原代码中的Me.Scattergram.Requery仅刷新数据源，不会强制重绘轴配置。替换为以下代码触发重绘：

Private Sub UpdateAxis_Click()
    Me.Scattergram.PrimaryValuesAxisRange = acAxisRangeFixed
    Me.Scattergram.SecondaryValuesAxisRange = acAxisRangeFixed
    Me.Scattergram.PrimaryValuesAxisMinimum = 0
    Me.Scattergram.PrimaryValuesAxisMaximum = 40
    Me.Scattergram.SecondaryValuesAxisMinimum = 42033
    Me.Scattergram.SecondaryValuesAxisMaximum = 44127
    
    ' 强制图表重绘
    Me.Scattergram.Visible = False
    Me.Scattergram.Visible = True
End Sub

2. 直接操作底层Chart对象 #

绕过Access控件的属性封装，直接获取图表的原生Chart对象进行设置（无需额外引用，用常量数值替代枚举值）：

Private Sub UpdateAxis_Click()
    Dim cht As Object
    
    Set cht = Me.Scattergram.Object
    
    ' 主轴设置（xlValue=2, xlPrimary=1）
    cht.Axes(2, 1).MinimumScale = 0
    cht.Axes(2, 1).MaximumScale = 40
    cht.Axes(2, 1).MinimumScaleIsAuto = False
    cht.Axes(2, 1).MaximumScaleIsAuto = False
    
    ' 次轴设置（xlValue=2, xlSecondary=2）
    cht.Axes(2, 2).MinimumScale = 42033
    cht.Axes(2, 2).MaximumScale = 44127
    cht.Axes(2, 2).MinimumScaleIsAuto = False
    cht.Axes(2, 2).MaximumScaleIsAuto = False
    
    Set cht = Nothing
End Sub

3. 修复图表控件/窗体损坏 #

压缩修复可能导致控件配置损坏，可尝试：

• 复制图表控件到新建窗体，测试代码是否生效。
• 导出窗体为文本文件后重新导入：
  1. 按Alt+F11打开VBA编辑器，右键窗体模块选择「导出文件」保存。
  2. 删除原窗体，再通过「导入文件」恢复。

4. 验证次轴基础配置 #

手动打开图表设计视图，确认：

• 次轴已启用（右键数据系列→「格式数据系列」→「系列选项」→勾选「次坐标轴」）。
• 次轴的「坐标轴选项」中，未被设置为自动缩放覆盖代码设置。

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