excel - 遇到运行时错误 '438' 对象不支持 Excel 宏中的此属性或方法

Question

我是宏的新手。事实上这是我的第一个宏。我正在尝试执行此宏。我面临运行时错误。

Option Explicit

Sub ScaleAxes()
  With ActiveChart.Axes(xlCategory, xlPrimary)
    .MaximumScale = ActiveSheet.Range("I17").Value
    .MinimumScale = ActiveSheet.Range("I18").Value
    .MajorUnit = ActiveSheet.Range("I19").Value
  End With
End Sub

基本上我的任务是，我正在尝试根据表格的最大值和最小值动态更改折线图的 x 轴值。因此，我使用 min 和 max 函数从我的表中计算了最大值和最小值，并将这些值通过 I17:I19 传递。不知道我有多正确。

Answer 1

我相信您遇到的问题是由于您尝试在不支持它们的类别轴上设置最小值和最大值。如果您更改了 xl类别 至 xl值 那么它应该可以工作(在具有值轴而不是类别轴的图表上)。

代码:

Option Explicit

Sub ScaleAxes()
  With ActiveChart.Axes(xlValue, xlPrimary)
    .MaximumScale = ActiveSheet.Range("I17").Value
    .MinimumScale = ActiveSheet.Range("I18").Value
    .MajorUnit = ActiveSheet.Range("I19").Value
  End With
End Sub