VBA图创建中的“指定维”运行时错误

Question

我想创建一个堆积的条形图，并将其插入到我创建的表格旁边的工作表中。我是一个庞大的Excel / VBA n00b，所以会希望对此有所帮助！

基本上，代码的输出会创建条形图，但1）将其插入名为“图1”的新工作表中，然后2）VBA显示错误“运行时错误” -2147352565（8002000b）”：指定的维度对当前图表类型无效。

尽管成功制作了条形图，但我仍希望在与之相同的ActiveWorksheet中使用它，并且希望摆脱该错误！

Sub graphcreation()

ActiveWorkbook.Sheets("PCOT").Select

Range("A2:F6").Select
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("POTC").Range("A2:F6")
ActiveChart.Location Where:=xlLocationAsObject, Name:="POTC"


End Sub

'-2147352565（8002000b）'：指定的尺寸对于当前图表类型无效'

运行代码时，该错误代码是否显示在VBA窗口中？