如何快速删除Excel中的所有自选图形？

如果您想在Excel中去除自选图形（也称为“形状”），您可能会对一种简单的方法感兴趣，该方法可以快速删除所有形状，而不是逐个删除。以下方法提供了一种高效的方法，包括一键解决方案，以简化流程并节省您宝贵的时间。

• 使用Excel中的定位功能删除当前工作表中的所有自选图形
• 使用VBA删除当前工作表中的所有自选图形
• 使用Kutools for Excel删除工作表或工作簿中的所有自选图形

使用Excel中的定位功能删除当前工作表中的所有自选图形

如果您的工作表中仅包含形状而没有其他类型的对象，您可以使用Excel内置的“定位”功能删除所有这些形状。

1. 按“F5”或“Ctrl” + “G”显示“定位”对话框，然后点击“定位条件”，如截图所示：

   

2. 勾选“对象”，然后点击“确定”；这将选择所有对象。

   

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

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

使用VBA删除当前工作表中的所有自选图形

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

1. 按住“ALT” + “F11”键打开“Microsoft Visual Basic for Applications”窗口。
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的删除插图和对象功能，该功能使您能够仅在当前工作表、选中工作表或整个工作簿中删除形状，只需一键即可。这为删除自选图形提供了更有针对性和高效的解决方案，同时保留其他对象。

1. 安装Kutools for Excel后，点击“Kutools”>“删除插图和对象”。

   

2. 在“删除插图和对象”对话框中，请在删除部分选择“自选图形”选项。然后，通过选择查找范围部分中的一个选项来指定要删除自选图形的位置。最后，点击“确定”。请参见以下截图：

   

   提示：
   • 选择“当前工作表”选项，将删除当前活动工作表中的所有自选图形。
   • 选择“选中工作表”选项，您将看到一个工作表列表供您选择，允许您删除选中工作表中的自选图形。
   • 选择“全部工作表”选项，将删除整个工作簿中的所有自选图形。

相关文章：

• 轻松删除所有图片
• 删除所有图表工作簿
• 快速删除所有文本框