日々の業務でExcelを使っていると、シート上に配置した図形が増えすぎて整理が大変になることはありませんか。不要な図形を個別に削除していると、そのたびに作業が中断されてしまい意外と時間を取られてしまいます。ここでは、選択範囲内の図形をVBAマクロで一括削除する方法を詳しく解説していきます。
Excelで選択範囲内の図形を一括削除するメリット
Excelのシートで図形（シェイプ）を使う機会は多いですが、いざ削除するとなると、一つひとつ手作業で消す方法しか思い浮かばない方も意外に多いかもしれません。特に、大量の図形が散在しているシートでは、マウス操作で一つひとつクリックして削除すると、思った以上に時間も手間もかかるものです。そこで役立つのがVBAによる自動化です。
手動削除との大きな違いは、削除作業を「ワンクリック」でまとめて実行できる点にあります。たとえば数十、数百の図形があるシートでも、実行するVBAマクロを用意しておけば、範囲を指定するだけで不要な図形を一瞬で取り除けるのです。
図形の削除に時間をかけないための時短テクニック
Excel上の図形は便利ですが、重複や誤配置などで不要になるケースもよくあります。とくにプレゼン資料用のテンプレートや、複雑なデータ可視化を試した後のシートでは、何十個もの図形が放置されていることも珍しくありません。そんなとき、選択範囲だけに注目して一括削除ができれば、必要な図形は残しつつ不要なものだけを効率よく消せます。
図形が多いほどメリット大
少数の図形ならまだしも、大量の図形が存在するシートではマウス操作で一つひとつ削除するのは非効率です。また、図形の上にさらに別の図形が重なっていて、誤って必要な図形を消してしまうリスクもあります。範囲指定とマクロによる自動削除を組み合わせれば、消したい領域だけを正確に指定し、一気に整理できるので安心です。
VBAマクロを使った効率的な削除方法
VBAマクロを使えば、Excelの標準機能にはない柔軟な操作が可能になります。図形の削除もそのひとつで、セルの座標や領域と連動させて動的に実行することができます。具体的には、シートの任意の選択範囲内に存在する図形のみをピンポイントで削除するようなマクロを記述することが可能です。
VBAマクロの基礎知識
VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。Excelでは、セルの操作やシート全体の管理、さらに今回のような図形の操作まで、自動化を幅広く実現できます。マクロを使いこなせるようになると、手作業の繰り返しタスクが大幅に削減できるでしょう。
VBAエディターの開き方
Excelでマクロを作成・編集するためには、VBAエディターと呼ばれる画面を使用します。エディターを開くには、以下の手順を踏みます。
- Excelを開き、対象のブックをアクティブにする
- キーボードで「Alt + F11」を押す
- VBAエディター画面が立ち上がり、モジュールやプロジェクトを操作できる
慣れてくるとショートカットの「Alt + F11」で瞬時に移動できるので、ExcelとVBAエディターを行き来するのも手間ではなくなります。
実際のサンプルコードの紹介
図形を削除する具体的なコード例として、以下のようなVBAマクロを用意します。選択範囲の中に含まれる図形のみをまとめて削除してくれる仕組みです。
Sub DeleteShapesInRange()
Dim shp As Shape
Dim rng As Range
Dim ws As Worksheet
Set ws = ActiveSheet
Set rng = Selection
For Each shp In ws.Shapes
If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then
shp.Delete
End If
Next shp
End Sub上記のコードでは、シート内に存在する全ての図形（Shapesコレクション）を順番にチェックし、その図形の「TopLeftCell」プロパティが選択範囲（Selection）と交差しているかどうかを判定しています。交差していれば削除するという流れです。
マクロの動作原理
このマクロの肝となるのは、TopLeftCellというプロパティです。図形には「左上」が位置するセルが必ず割り当てられています。たとえば、図形がシートのどこかに貼り付けられている場合、その図形の座標は特定のセルの上に重なっているとExcelに認識されます。その「左上」がどのセルかを取得して、選択範囲と照合することで削除対象かどうかを判別しているのです。
TopLeftCellによる判定方法
TopLeftCellは図形が左上部分でカバーしているセルを返します。つまり、図形が選択範囲に一部だけ重なっているケースでも、左上が選択範囲に含まれてさえいれば、その図形は「選択範囲内にある」とみなされます。もし、図形の中央や右下などを基準にしたい場合は別の判定方法を考える必要がありますが、まずはシンプルな例としてこの方法がもっとも手軽です。
実行手順
実際にマクロを利用して図形を削除する手順は以下のとおりです。
- 手順1: Excelシートで削除対象としたい領域をドラッグして選択
- 手順2: 「Alt + F11」を押してVBAエディターを開く
- 手順3: 「挿入」→「標準モジュール」を選択し、新規モジュールを作成
- 手順4: 作成したモジュールに上記のサンプルコードを貼り付ける
- 手順5: VBAエディターを閉じてExcelに戻る
- 手順6: 「Alt + F8」を押してマクロダイアログを開き、
DeleteShapesInRangeを実行
これだけで、選択範囲内の図形が全て削除されます。マクロ初心者の方でも手順通りに進めればスムーズに導入できるでしょう。
削除判定のカスタマイズ
上記マクロは「図形の左上セルが選択範囲に含まれているか」を基準にして削除するかどうかを決定しています。ですが、業務シーンによっては細かなカスタマイズが必要になるケースもあるでしょう。たとえば、図形が選択範囲内にほんの一部だけ重なっている場合でも削除したい、あるいは逆に完全に範囲内に収まっていないと削除したくない、といった要望があるかもしれません。
図形が選択範囲に部分的にかかっている場合
「図形が選択範囲に少しでもかかっていれば削除したい」という場合は、TopLeftCell以外に加えて、BottomRightCellなどを組み合わせた判定を行う方法があります。具体的には、図形の左上セルと右下セルの両方、または図形の中央座標などを計算して、それらが選択範囲に含まれるかどうかをチェックします。
実装例としては、以下のような考え方があります。
shp.TopLeftCellとshp.BottomRightCellを取得- その両方が選択範囲内に含まれる場合のみ削除
- または、どちらか一方でも範囲内であれば削除
これにより、図形が選択範囲の大部分にまたがっているかどうかを厳密に判断できるようになります。
複数の条件を組み合わせる場合
「部分的に重なっている図形も削除したいが、ある特定の名前の図形だけは除外したい」など、複雑な条件を設定することもマクロなら可能です。たとえば、図形名に特定の文字列が含まれている場合は削除しない、といった制御を加えることができます。実装の一例としては、If shp.Name Like "*除外ワード*" Then ...というように条件分岐を追加する方法があります。
よくあるトラブルシューティング
VBAマクロを使って図形を削除するときには、いくつかのエラーや想定外の挙動が起こる場合があります。その代表的なケースと対処法を確認しておくと、スムーズに運用できるようになります。
対象の図形が削除されないとき
マクロを実行したのに、一部の図形が削除されない場合は以下の点を確認してみてください。
- マクロで判定しているセル範囲が正しいか
TopLeftCellやBottomRightCellの判定方式を変更した場合、意図通りに範囲を判定できていないことがあります。 - 保護されているシートではないか
シート保護が有効になっていると、図形の削除自体が制限されるケースがあります。 - 図形の種類がShapesコレクションに含まれているか
グラフ、ピボットテーブル、スライサーなどはShapesコレクションではなくChartObjectsなど別のオブジェクト扱いになる場合があります。
マクロがエラーを起こす場合
エラーが出る原因としては、宣言している変数やオブジェクトの使い方が間違っていることが多いです。たとえば、Selectionを取得しているつもりでも、選択しているものがセルではなくシェイプだったりすると、Range型が取得できずにエラーを引き起こす可能性があります。コードを実行する直前に、正しくセル範囲が選択されているかどうかを確認するとよいでしょう。
また、VBAの「参照設定」から特定のライブラリを有効化していない場合、オブジェクトにアクセスできないエラーが発生するケースもあります。ただし、本記事で紹介する程度のマクロであれば、標準のExcelオブジェクトライブラリのみで問題なく動作するはずです。
シェイプ削除に関する応用例
図形をまとめて削除できるようになると、Excel上のレイアウト管理がぐっと楽になります。ここでは少し角度を変えて、シェイプ削除を応用したアイデアを紹介します。
まとめて移動や再配置を行う工夫
大量の図形をマクロで一括操作できるなら、削除だけでなく位置やサイズの調整にも同様の考え方が応用できます。たとえば、選択範囲内の図形だけを一時的に右に数セル分ずらすようなマクロを書けば、複雑なレイアウトを手早く変更できます。削除マクロをベースに、shp.Leftやshp.Topなどのプロパティを調整するマクロに書き換えるとよいでしょう。
マクロをボタンに登録して運用を簡単化
マクロをより手軽に使うには、シートにボタンを設置してそのボタンにマクロを割り当てると便利です。ユーザーフォームを作るほどでなくても、簡単なフォームコントロールのボタンであればすぐに作成できます。削除したい範囲を選んでボタンを押すだけで図形が消えるようになれば、マクロに慣れていない人でも簡単に運用できるようになります。
操作手順は以下のとおりです。
- 「開発」タブから「挿入」を選択し、フォームコントロールの「ボタン」を挿入
- シート上に配置したい位置にボタンを描画
- 表示されたダイアログで割り当てたいマクロ（
DeleteShapesInRangeなど）を選択 - ボタンのテキストを「選択範囲の図形削除」などわかりやすい名称に変更
こうしておくと、複数人が同じファイルを使う場合でもボタンひとつで操作でき、削除作業がさらに時短になります。
まとめ
Excel上の図形が増えすぎて煩雑になるという悩みは多くの方が経験することかもしれません。そんなときに役立つのが、VBAを活用した選択範囲内の図形一括削除マクロです。不要な図形を瞬時に整理できるだけでなく、応用して配置やサイズの自動調整など、作業効率化の可能性は大いに広がります。
今回紹介したマクロは、図形の「左上セル」と選択範囲の交差を基準に削除を行うシンプルなものですが、必要に応じて部分的な重なりや図形名による除外などさまざまなカスタマイズも可能です。あなたの業務でExcelを使う際には、ぜひこのテクニックを取り入れ、効率的で柔軟なシート管理を実現してみてください。
コメント