写一段VBA代码，可以删除Excel表格中的所有图片

Sub 删除所有图片() Dim iShp As Shape For Each iShp In ActiveSheet.Shapes If iShp.Type = msoPicture Then iShp.Delete End If Next iShp End Sub