Excel VBA 更新图形数据

Excel VBA 更新图形数据

我有几张图表引用一个特定的数据集。每个图表都有不同数量的系列。每个系列引用数据集中某一行的特定列数(即 A1:Z1)。在更新期间,我想将所有系列的数据移动 1 列(即 A1:Z1 -> B1:AA1)。所有系列的列选择将相同。

我现在的方法是浏览所有图表,在每个图表中计算系列数,为每个系列保存行号并使用新列进行更新。

我的问题在于检索行号。我尝试这样做

foo = ActiveChart.SeriesCollection(1).Values

目的是从字符串中提取行号(这确实不优雅),但是 Values 属性不返回字符串,即使在设置它时,它确实接受一个字符串,即:

ActiveChart.SeriesCollection(1).Values = "=Data!$A$1:$Z$1"

最好的方法是什么?我应该为每个系列使用动态命名的范围吗?

谢谢。

相关内容