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

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 。