删除图表图片而不删除图表

在试图导出一个范围作为图片在用户窗体上使用我有以下几点：

FolderPath = ThisWorkbook.Path & "\dbfiles" If ComboBox3.Value = "Cube" Then With Worksheets("Form") Set r = .Range("AE21:AM52") r.CopyPicture Appearance:=xlPrinter, Format:=xlPicture Set chtO = .ChartObjects("Chart 4") End With With chtO.Chart .Paste .Export Filename:=FolderPath & "\temppic.bmp", FilterName:="BMP" End With 

问题是，当代码运行并且图表区域中已经有图片时，“新的粘贴”的大小会有所不同，并且不会填充图表区域。 我需要这个发生，所以图片与我的用户表单上的其他对象排队。 我发现，如果我手动删除图片，但离开图表（点击，按删除），一切工作正常。 所以我的问题是，你如何务实地做到这一点？ 我已经尝试过，删除差距是无济于事的。 （object_chart的方法删除失败）提前致谢。

Answer 1

 With chtO.Chart Do While .Shapes.Count > 0 .Shapes(1).Delete Loop .Paste .Export Filename:=FolderPath & "\temppic.bmp", FilterName:="BMP" End With