Excel中图片太多，怎样能快速删除？谢谢

117778107

Excel中图片太多，怎样能快速删除？

leepoison

Sub DeleteAllPictures()     Dim pic As Object     For Each pic In ActiveSheet.Shapes         pic.Delete     Next pic End Sub

miaojohn45

CTRL+G（或者F5），定位条件，对象，确定，Del。

Holiday2022

询问ChatGPT，给我写一个批量删除Excel工作表中图片的vba代码

117778107

miaojohn45 发表于 2024-3-6 23:13
CTRL+G（或者F5），定位条件，对象，确定，Del。

谢谢你的方法，太好用了！！

niko88819

Holiday2022 发表于 2024-3-6 23:21
询问ChatGPT，给我写一个批量删除Excel工作表中图片的vba代码

1. Sub DeleteAllPictures()
   
2.     Dim sh As Worksheet
   
3.     Dim pic As Shape
   
4.     Set sh = ActiveSheet
   
5.     For Each pic In sh.Shapes
   
6.         If pic.Type = msoPicture Then
   
7.             pic.Delete
   
8.         End If
   
9.     Next pic
   
10. End Sub

复制代码