Y轴自动缩放模块在更改时未激活

Question

我在瀑布图上缩放Y轴的代码昨天完美运行但今天什么也没做。 如果它没有扩展，图表几乎难以辨认，因为被比较的项目可能会有数千到数百万美元不等。 它监视静态单元格中的最小值和最大值，并根据下面的代码更改比例。 我知道改变事件是正确的，因为它在昨天工作。 我可以确保它总是在不使用按钮的情况下运行吗？ 运行时没有错误消息。

  Option Explicit
        Sub ChangeAxisScales_Calculate()
           Dim objCht As ChartObject
           For Each objCht In Sheets("Price Bridge Chart").ChartObjects
              With objCht.Chart
                 ' Value (Y) Axis
                 With .Axes(xlValue)
                    .MaximumScale = ActiveSheet.Range("L34").Value + 2000000 
                    .MinimumScale = ActiveSheet.Range("K34").Value - 2000000 
                    MsgBox "Max = " & .MaximumScale '- For Error Checking
                    MsgBox "Min = " & .MinimumScale ' - For Error Checking
                    .MajorUnit = 250000 'Chart horizontal lines
                    End With
              End With
           Next objCht
        End Sub