将数组设置为Chart.SeriesCollection（）。值

Question

我已经在Stackoverflow和其他网站上看到了一些使用数组设置图表值的方法，但这对我不起作用：

d_ppt_output.Slides(1).Shapes("P_Cronograma_Realizado").Chart.SeriesCollection(1).Values = Array(20)

当我检查.Chart.SeriesCollection（3）.Values时，未设置值20并且它表示没有变量。为什么这对我不起作用？ PS：我的PPT中已经有了一个图表，在这里我只是改变了价值。我可以通过调用电子表格进行更改，但我想直接更改。

Answer 1

这应该在理论上有效。但是，我在代码中看到了SeriesCollection（1），在文本中看到了SeriesCollection（3）。 Array（）必须包含您计划在图表上显示的所有值，因此如果您只想查看一个20，那么就可以了。

更新1

您可以尝试以下方法吗？

Dim varValues(1 To 1) as Variant
varValues(1) = 20
d_ppt_output.Slides(1).Shapes("P_Cronograma_Realizado").Chart.SeriesCollection(1).Values = varValues

更新2

因此，您有一个从Excel嵌入的图表。要编辑它，您需要Excel。另一种方法是在PowerPoint中创建一个图表，因此您不需要Excel。