在一个VBA的ChartObject改变x轴(Changing x-axis of a ChartO

如果我想我的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

文章来源: Changing x-axis of a ChartObject in VBA