Измените диаграмму excel sourcedata с помощью макроса

Question

Я пытаюсь создать макрос, который изменит sourcedata линейного графика.

Имя графа: 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 (whic h, где его провал).

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

и

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

сообщение об ошибке:

ошибка времени выполнения '2147417848 (80010108)': Метод 'Range' объекта '_worksheet' не удалось

Пожалуйста, помогите. Благодарности

Answer 1

вместо

chartSheet.ChartObjects ("Tot_Failures") SetSourceData Источник:. =

попробовать

chartSheet.ChartObjects ("Tot_Failures") Chart.SetSourceData Источник:. =

Это сработало, когда я попробовал это на примере.