VBA清除图表内容

Excel图表从新生成的时候，有的时候不能全部清空原来图表的内容，而且还会出现卡死的情况

所以就写了几行代码，先清空图表原来的内容，然后从新生成

 

Dim cc As Chart
For i = 1 To 3
Set cc = Sheet6.ChartObjects(i).Chart
'cc.ChartArea.ClearFormats
cc.ChartArea.ClearContents
cc.ChartArea.Clear
Next