跳到主要内容

如何快速删除Excel中的所有自动形状?

如果您想删除 Excel 中的自动形状(也称为“形状”),您可能会对快速删除所有形状而不是单独删除它们的简单方法感兴趣。 以下方法提供了一种有效的方法(包括一键式解决方案)来简化流程并节省您的宝贵时间。


箭头蓝色右气泡 使用 Excel 中的“转到”功能删除活动工作表中的所有自动形状

如果您的工作表仅包含形状而没有其他类型的对象,则可以使用 Excel 的内置功能删除所有这些形状 转到 功能。

  1. 媒体 F5 or Ctrl + G 显示 转到 对话框,然后单击 特别.. 如屏幕截图所示:

  2. 单向阀 对象,然后单击 OK; 这将选择所有对象。

  3. 然后按 Backspace键 键删除所有选定的自选图形。

备注:对象包含各种元素,包括自动形状、图片、剪贴画等。 如果工作表中存在各种对象,应用此方法将删除所有对象,而不仅仅是自动形状。


箭头蓝色右气泡 使用 VBA 删除活动工作表中的所有自选图形

使用VBA宏可以帮助您快速删除活动工作表中的所有形状。

  1. 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
  2. 点击 插页 > 模块,并将以下宏粘贴到 模块 窗口。

    VBA:删除活动工作表中的所有形状

    Sub DeleteShapes()
    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
    Shp.Delete
    Next Shp
    End Sub
  3. F5 运行此宏的键。

执行这些步骤后,您会注意到活动工作表中的所有形状都已被快速删除。

备注:此VBA宏删除活动工作表中的各种形状,包括图片、剪贴画、形状、SmartArt、图表、文本框等。


箭头蓝色右气泡 使用 Kutools for Excel 删除工作表或工作簿中的所有自动形状

前面提到的方法可以删除各种类型的对象。 如果您的目标是专门从工作表中删除形状,您可以使用 Kutools for Excel's 删除插图和对象 功能,使您只需单击一下即可仅删除活动工作表、选定工作表或整个工作簿中的形状。 这为删除自选图形同时保留其他对象提供了更有针对性和更有效的解决方案。

Kutools for Excel - 包含 300 多个 Excel 基本工具。 享受全功能 30 天免费试用,无需信用卡! 现在下载!

  1. 一旦你有 Kutools for Excel 已安装,点击 库工具 > 删除插图和对象.

  2. 删除插图和对象 对话框,请选择 汽车形状 在选项 删除 部分。 然后,通过选择选项中的选项之一来指定要删除自选图形的位置 在看 部分。 最后点击 OK。 请参见以下屏幕截图:

    提示:
    • 通过选择 活动表 选项,它将删除当前活动工作表中的所有自动形状。
    • 通过选择 选定的工作表 选项,您将看到一个可供选择的工作表列表,允许您删除所选工作表中的自选图形。
    • 通过选择 所有工作表 选项,它将删除整个工作簿中的所有自动形状。

笔记:

  • Kutools for Excel's 删除插图和对象 功能是一个强大的工具,可以简化从 Excel 工作表中删除各种类型的对象的过程。 它可以删除活动工作表、选定工作表或当前工作簿中的所有工作表中的所有图表、线条、图片、自动形状、智能艺术、文本框、链接的 OLE 对象和嵌入的 OLE 对象。 了解有关删除插图和对象工具的更多信息。
  • 想要访问 删除插图和对象 公用事业? 下载 Kutools for Excel 现在! 除此之外,Kutools 还拥有 300 多个其他功能,并提供 30 天免费试用。 不要等待,今天就尝试一下吧!

相关文章:

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!

Comments (17)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
if the auto-shape number is very high, you should use the VBA command which is very helpful.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thanks a lot
This comment was minimized by the moderator on the site
Thank you.
This comment was minimized by the moderator on the site
Thanks This was driving me crazy trying to delete hundreds of these on a file We share a t work!
This comment was minimized by the moderator on the site
thank you!
This comment was minimized by the moderator on the site
Many Thanks for help
This comment was minimized by the moderator on the site
⭐⭐⭐⭐⭐ Excelent Service! Thanks a lot
This comment was minimized by the moderator on the site
Man! I love you! It really helped me :) My excel was working like a turtle U SAVE MY ASS BUDDY
This comment was minimized by the moderator on the site
Man! I love you! It really helped me :) My excel was working like a turtle and file size was reduced from 5mb to 125KB !
This comment was minimized by the moderator on the site
Super quick Ctrl+G thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations