Question

我正在尝试创建一个宏，它将更改折线图的源数据。

图表的名称为： Tot_Failures ，显示图表的工作表名称为： Test_Results ，图表需要从中提取信息的工作表名称是： 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'的方法'范围'失败

请帮忙。感谢

Answer 1

而不是

chartSheet.ChartObjects（＆＃34; Tot_Failures＆＃34;）。SetSourceData Source：=

试

chartSheet.ChartObjects（＆＃34; Tot_Failures＆＃34;）。Chart.SetSourceData Source：=

当我尝试一个例子时，这很有用。

使用宏更改Excel图表sourcedata

1 个答案: