Sub DeletePic() Dim p As Shape For Each p In Sheet1.Shapes If p.Type = 13 Then p.Delete End If Next End Sub
附上删除的图形类型见下表：
VBA 删除Excel中所有的图片
原文：https://www.cnblogs.com/luoye00/p/10495024.html
