下标超出范围分配新的图表值

Question

我正在尝试编写一些VBA代码来滚动图表，并在x轴上显示日期。每次按下按钮都应将显示的数据向前更改一周。

当我运行代码时，它在这一行上给出了一个下标范围错误：

With Charts("Chart 1").Axes(xlValue)

这是我的代码：

Sub ForwardButtonClick()

Range("CurrentDate").Value = Range("CurrentDate").Value + 7

With Charts("Chart 1").Axes(xlValue)
 .MinimumScale = Range("CurrentDate").Value
 .MaximumScale = Range("CurrentDate").Value + 7
End With

End Sub

Answer 1

值xlValue指的是值轴 - 或Y轴。

如果您尝试更改X轴，则需要使用xlCategory。