Sub DeletePic() Dim p As Shape For Each p In Sheet1.Shapes If p.Type = 13 Then p.Delete End If Next End Sub
附上删除的图形类型见下表:
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