VBA 删除Excel中所有的图片

Sub DeletePic()     Dim p As Shape     For Each p In Sheet1.Shapes         If p.Type = 13 Then             p.Delete         End If     Next End Sub

附上删除的图形类型见下表：

转载于:https://www.cnblogs.com/luoye00/p/10495024.html

相关资源：Excel用VBA高手直接删除指定条件行.xls