VBA 运行时错误 91

我为一个形状分配了一个宏，但我收到一个运行时错误“91”对象变量或未设置块变量。但是，当我从“开发人员”选项卡运行宏时，它可以工作。 “ActiveChart.Axes”行是错误的来源。我是 VBA 的新手，所以任何帮助将不胜感激。我应该用“ActiveSheet.ChartObjects”替换“ActiveChart.Axes”吗？

Option Explicit

Sub ScaleAxes()
 With ActiveChart.Axes(xlValue, xlPrimary)
    .MaximumScale = ActiveSheet.Range("B14").Value
    .MinimumScale = ActiveSheet.Range("B15").Value
    .MajorUnit = ActiveSheet.Range("B16").Value
  End With
End Sub

最佳答案

在 with 语句之前添加以下行。

ActiveSheet.ChartObjects("Chart 1").Activate

假设“图表 1”是您的图表名称。

关于VBA 运行时错误 91，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35662402/

activeSheet

VBA 运行时错误 91