使用macros更改excel图表sourcedata

我正在尝试创build一个将改变线图的源数据的macros。

graphics的名字是: Tot_Failures ,graphics显示的图表名称是: Test_Results ,graphics需要从中提取信息的图表名称是: CycleNumFailures

代码是:

Dim rangeText As String rangeText = CStr("B1:B" & biggestCycleNum) Dim chartSheet As Worksheet Set chartSheet = Sheets("Test_Results") chartSheet.ChartObjects("Tot_Failures").Activate ActiveChart.SetSourceData Source:=Sheets("CycleNumFailures").Range(rangeText) 

我已经尝试了许多变化的第7行(这是失败的地方)。

 ActiveChart.SetSourceData Source:=Sheets("CycleNumFailures").Range("B1:B" & biggestCycleNum) 

 chartSheet.ChartObjects("Tot_Failures").SetSourceData Source:=Sheets("CycleNumFailures").Range("B1:B" & biggestCycleNum) 

错误信息是:

运行时错误'2147417848(80010108)':对象'_worksheet'的方法'范围'失败

请帮忙。 谢谢

代替

chartSheet.ChartObjects(“Tot_Failures”)。SetSourceData Source:=

尝试

chartSheet.ChartObjects(“Tot_Failures”)。Chart.SetSourceData Source:=

这个工作,当我尝试了一个例子。