如何快速刪除Excel中的所有自動形狀？

當您的Excel工作表中充滿了自動形狀（如矩形、線條或箭頭）時，一個一個地刪除它們可能會非常繁瑣。幸運的是，本文比較了三種實用的方法，從基本的內建工具到一鍵式的高級解決方案，各有不同的精確度和靈活性。

• 使用「定位條件」刪除所有物件
• 使用VBA刪除所有形狀（包括圖表和圖片）
• 使用Kutools for Excel精確刪除僅自動形狀

使用「定位條件」刪除所有物件

這是Excel用戶最常用來刪除形狀的方法，因為它是內建於Excel中的，不需要任何編碼或外掛程式。然而，有一個重要的注意事項：

以下是使用「定位條件」功能執行此任務的方法。

1. 按下「F5」或「Ctrl」+「G」打開「定位」對話框，然後點擊「定位條件」。

   

2. 選擇「物件」，然後點擊「確定」。所有物件（包括形狀、圖片等）將被選中。

   

3. 按下Delete或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鍵運行此宏。

活動工作表中的所有形狀，包括自動形狀、圖表和圖片將被刪除。

使用Kutools for Excel精確刪除僅自動形狀

Kutools for Excel提供了一個名為「刪除插圖與物件」的專用工具，讓您能夠精確刪除當前工作表、選定工作表或整個工作簿中的形狀。

安裝Kutools for Excel後，選擇「Kutools」>「刪除」>「刪除插圖與物件」。然後按照以下方式配置對話框：

1. 在「刪除」部分，選擇「自動形狀」。
2. 在「尋找範圍」部分，選擇：
   • 「當前工作表」- 刪除當前工作表中的形狀。
   • 「選中工作表」– 選擇特定的工作表進行處理。
   • 「全部工作表」– 從整個工作簿中刪除形狀。
3. 點擊「確定」。

   

相關文章：

• 輕鬆刪除所有圖片
• 刪除所有圖表工作簿
• 快速刪除所有文字框