Excelで全てのオートシェイプを迅速に削除する方法は？

Excelのワークシートに長方形、線、矢印などのオートシェイプが散らばっている場合、それらを1つずつ削除するのは面倒です。幸いなことに、この記事では基本的な組み込みツールからワンクリックで使える高度なソリューションまで、精度と柔軟性が異なる3つの実用的な方法を比較しています。

• 「ジャンプ」機能を使ってすべてのオブジェクトを削除する
• VBAを使用してすべての図形（チャートや画像も含む）を削除する
• Kutools for Excelを使用してオートシェイプのみを正確に削除する

「ジャンプ」機能を使ってすべてのオブジェクトを削除する

これはExcelユーザーが図形を削除する際に最も一般的に使用される方法です。なぜなら、この機能はExcelに組み込まれており、コーディングやアドインを必要としないからです。ただし、重要な注意点があります：

以下は、「ジャンプ」機能を使用してこのタスクを処理する方法です。

1. 「F5」キーまたは「Ctrl」+「G」キーを押して「ジャンプ」ダイアログボックスを開き、「特殊...」をクリックします。

   

2. 「オブジェクト」を選択し、「OK」をクリックします。すべてのオブジェクト（図形、画像など）が選択されます。

   

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. 「OK」をクリックします。

   

関連記事：

• すべての画像を簡単に削除する
• すべてのチャートを削除する
• すべてのテキストボックスを迅速に削除する