Question

我想使用带有200组X和Y数据的vba在excel（2013）中加载xy图。我想使用变量更改“FullSeriesCollection（i）”末尾的“计数”数字，但似乎这不起作用，我做什么，系统分配自己的计数。搜索告诉我“Count”是只读的。有办法解决这个问题吗？

由于

我正在尝试这样做：

Dim j as long
for J = 1 to 200
ActiveSheet.ChartObjects("Chart 4104").Activate
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.FullSeriesCollection(j).XValues = "='side A'!$g$j:$k$j"
  ActiveChart.FullSeriesCollection(j).Values = "='side A'!$g$(j+1):$k$(j+1)"

等。等

Answer 1

SeriesCollection.Add方法返回对添加的系列的引用，因此您可以使用：

Dim j as long, s

for J = 1 to 200

    Set s = ActiveSheet.ChartObjects("Chart 4104").Chart.SeriesCollection.Add()

      s.XValues = "='side A'!$g$j:$k$j"
      s.Values = "='side A'!$g$(j+1):$k$(j+1)"

如何在FullSeriesCollection中使用变量进行计数（1）

1 个答案: