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