VBA的ChartObjects问题

With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart

.Parent.Select

.Paste

.Export folderPath & Name & ".jpg", "jpg"

.Parent.Delete

End With

有多张图导出的时候，前面1 2个图没有问题能导出，但是到后面就弹出 拒绝访问，

.Paste

然后就卡在这里

然后表格的就会出现这个空白图，同样的代码10个月前WPS上用的时候没有问题，然后在Excel上用也没问题，应该是有BUG吧，来反馈一下.0.0.。

求大佬修复一下.0.0.