Невозможно вставить диаграммы с помощью VBA

У меня есть фрагмент кода, который должен вставлять диаграммы на основе таблицы. Он работал, но теперь он бросает ошибку времени выполнения «438». Объект не поддерживает свойство или метод»Невозможно вставить диаграммы с помощью VBA

Range("P4:AC6").Select 
ActiveSheet.Shapes.AddChart2(276, xlAreaStacked).Select 
ActiveChart.SetSourceData Source:=Range("'BU wise Summary'!$P$4:$AC$6") 
ActiveChart.ClearToMatchStyle 
ActiveChart.ChartStyle = 283 
ActiveChart.Parent.Cut 
Sheets("Charts").Select 
Cells(204, 7).Select 
ActiveSheet.ChartObjects.Select 
ActiveChart.ChartArea.Select 
ActiveSheet.ChartObjects.Delete 
ActiveSheet.Paste

Может кто-то дайте мне знать, что это ошибка?

источник

2015-04-21 Anarach

Поскольку вы используете этот код в [Excel v. <2013] (https://msdn.microsoft.com/en-us/library/office/jj228277.aspx)? – GSerg

Ох ... да, можете ли вы опубликовать это как ответ, чтобы я мог закрыть эту тему? – Anarach

Shapes.AddChart2 был added in Excel 2013.

либо запустить макрос на Excel 2013+ или использовать the older way.

источник

2015-04-22 07:39:58 GSerg

Спасибо, я давно написал код в excel 2013. :-) – Anarach

Невозможно вставить диаграммы с помощью VBA

ответ

Смежные вопросы