Question

Excel如何用VBA代码删除工作表内插入的所有图片？

"qgrmdtj"的方法确实能让工作表一下子变得很干净，遗憾的是控制的按钮也没了。如果能改进一下就好了。

Answer 1

Sub Clear_pics()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Not Shp.Type = msoFormControl Then Shp.Delete
Next
End Sub

这段程序加入了对控制按钮的判断，可以避免控制按钮被删除

Answer 2

Sub qgrmdtj()
For Each im In ActiveSheet.Shapes
im.Delete
Next
end sub
－－－－－－－－－－－－－－－－
我还真的不知道怎么改进了，看看有没有高人可以。

Answer 3

边学边卖
Sub Clear_pics()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then Shp.Delete
Next
End Sub