无法保存包含使用VBA生成的图表的工作簿

使用Microsoft Excel 2013

在一个空的新工作簿中，我可以运行这个macros的成功：

Sub ReproduceError() Dim Sh As Worksheet Dim Ch As Chart Set Sh = ActiveWorkbook.Worksheets(1) Set Ch = Sh.Shapes.AddChart.Chart End Sub 

但是，当我试图保存工作簿时，我收到此错误：

在保存[文件名]时检测到错误。 Microsoft Excel可能能够通过删除或修复某些function来保存该文件。 要在新文件中进行修复，请单击继续。 要取消保存文件，请点击取消。

Answer 1

你有没有尝试定义图表所占据的范围？

 Range("A10:B14").Select sh.Shapes.AddChart.Select