VBA 图表的基本操作（三）

今天继续讲讲VBA图表的相关内容

一、删除图表

①假设sheet1上面有个图表，要删除的话，代码如下：

Sub demo()
    Sheets("Sheet1").ChartObjects(1).Delete
End Sub

②如果是单独的一张Chart，要删除的话直接把Chart删除就可以啦：

Sub demo()
    Sheets("Chart1").Delete
End Sub

这样删除会弹出一个警告框，如果不需要弹出警告框可以加一句：

Sub demo()
    Application.DisplayAlerts = False
    Sheets("Chart1").Delete
    Application.DisplayAlerts = True
End Sub

③如果需要删除在Sheet1上所有图表的话，可以通过shapes进行遍历：

Sub demo()
    Dim shp As Shape
    For Each shp In Sheets("Sheet1").Shapes
        shp.Delete
    Next
End Sub

.也可以通过图表对象ChartObject进行操作：

Sub demo()
    Dim chartObj