无法使用VBA插入图表

Question

我有一段代码应该根据表格插入图表。它曾经工作过，但现在却抛出了运行时错误＆＃34; 438＆＃34;对象不支持属性或方法＆＃34;

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

有人能让我知道错误是什么吗？

Answer 1

Shapes.AddChart2是added in Excel 2013。

在Excel 2013+上运行宏或使用the older way。