带有动态数据的VBA饼图

Question

我正在尝试在饼图中插入数据，但出了点问题。

显然，VBA不喜欢这样：

  ActiveChart.SeriesCollection(1).Name = ws2.Range(ws2.Cells(r, 2), ws2.Cells(r + inc, 2))

  ActiveChart.SeriesCollection(1).Values = ws2.Range(ws2.Cells(r, 15), ws2.Cells(r + inc, 15))

所以我试过这个：

ActiveChart.SeriesCollection(1).Name = "=Dashboard!$B$"&r&":$B$"&r+inc

但它仍然没有用......

Answer 1

尝试使用代码中声明的范围和SetSourceData方法：

Set my_range = work.Range("E1:F" & i - 1)
dash.ChartObjects("My Chart").Chart.SetSourceData Source:=my_range

这对我有用。