vba - 如何使用 Charts.add 命令来提供空图表？

Question

VBA 中的命令 charts.add 将新的图表对象添加到工作簿中。我认为在 Excel 中按 F11 的效果完全相同。

问题是，此命令使用当时选定的工作表和单元格周围的数据来填充图表。如果没有数据或没有可用数据，则返回空图表。

我的问题是:“如何强制命令提供空图表？”。此后我打算用 VBA 代码填充图表。

这个问题的一个简单答案是创建一个新的空工作表并选择该工作表上的单元格 A1，然后创建一个新图表，但这是一个相当丑陋的解决方案。任何有关优雅解决方案的帮助将不胜感激。

Answer 1

尝试添加额外的行，这将在图表出现后立即删除数据:

Charts.Add 
ActiveChart.ChartArea.Clear

编辑替代解决方案，但这将跳回数据表:

'select last cell in the sheet which is usually empty
Dim tmpSel As Range
Set tmpSel = Selection
Cells(Rows.Count, Columns.Count).Select
'add chart
Charts.Add
'back to base sheet and select range previously selected
tmpSel.Parent.Activate
tmpSel.Select