vba - 在 VBA 中更改 ChartObject 的 x 轴

Question

如果我想将我的 x 轴更改为范围内的数据G5:G105，Chart 2那么我将其放入我的 VBA 子程序中：

ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).XValues = "='Q1'!$G$5:$G$105"

如何使我可以有一些任意范围而不是固定的$G$5:$G$105. 我试过用

ActiveChart.SeriesCollection(1).XValues = "='Q1'!Range("G5").Resize(I, 1)"

其中I是Integer在子例程的前面部分中定义的某个变量。

但是它不起作用。

Answer 1

恐怕您的范围"='Q1'!Range("G5").Resize(I, 1)"是字符串和代码的非法组合。试试这个范围：Range("Q1!G5").Resize(i, 1).

完整示例：

Option Explicit

Sub ChartTest()

    Dim i As Integer

    i = 2

    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.SeriesCollection(1).XValues = Range("Q1!G5").Resize(i, 1)

End Sub