Sub 删除所有图片() Dim iShp As Shape For Each iShp In ActiveSheet.Shapes If iShp.Type = msoPicture Then iShp.Delete End If Next iShp End Sub
写一段VBA代码,可以删除Excel表格中的所有图片
最新推荐文章于 2023-09-28 11:21:10 发布
Sub 删除所有图片() Dim iShp As Shape For Each iShp In ActiveSheet.Shapes If iShp.Type = msoPicture Then iShp.Delete End If Next iShp End Sub