With ActiveWorkbook.Sheets(1)
INSPECT_CHARTS_NUMBER = .ChartObjects.Count
For c= 1 To .ChartObjects.Count
Set INSPECT_CHART = .ChartObjects(c).Duplicate
.ChartObjects(c).Chart.SetSourceData Source:=.Range("e4:h4")
Next lngC
End With
我执行上述操作以更改 VBA 中图表的源数据这一行.Chart.SetSourceData Source:=.Range("e4:h4")
确实可以工作,但如果该图表中有多个系列,则这将不起作用。
如何获取所有系列的源数据,然后如何单独更改它们?
这是一个例子
假设活动图表的系列集合正在从中选取值A1:A5
and C1:C5
。所以下面的代码将源更改为A8:A12
and C8:C12
Dim sc As SeriesCollection
Dim i as Long, j as Long
j = 1
For i = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(i).Values = "=Sheet1!R8C" & j & ":R12C" & j
j = j + 2 '<~~ Adding 2 for Col C
Next
截屏
Before
After
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)