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

Sub Clear_pics()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Not Shp.Type = msoFormControl Then Shp.Delete
Next
End Sub
这段程序加入了对控制按钮的判断，可以避免控制按钮被删除