通过VBA清除Excel中部分图形或图片

使用场景：

当使用VBA绘制各种图形，如K线图，散点图，折线图等时，经常需要先将旧的图形删除，再绘制新的图形，但是批量删除又常常把需要保留的图形删掉，因此需要选择性的删除部分图形或图片。

---

方法描述

在删除图形前先判断图形的类型，例如，删除除窗体控件以外的所有图形时，判断图形类型是不是=8，把不=8（代表窗体控件）的依次删除即可。
代码：

    '清除原有图形
    For Each S In ActiveSheet.Shapes
        If S.Type <> 8 Then            '有插入一个窗体控件指定宏
            S.Delete                   '把不是窗体控件的shape（图片、图形等）清除
        End If
    Next S

---

图形类型说明：

 

---