Excel2013アクティブシート上の、グループ化された図形をグループ解除するマクロをご紹介しました。この記事を作成する工程で、英語圏の掲示板を眺めていたら、興味深い別のExcelマクロが紹介されているのに気付きました。選択されているセル範囲の図形を削除するマクロです。ワークシート上の複数の図形を削除するには、[Shift]キーや[Ctrl]キーを押しっぱなしにして図形を一つずつクリックしていくか、[オブジェクトの選択]コマンドからマウスポインタを変更してドラッグする必要があります。[スポンサードリンク]この作業を楽にしてくれるマクロです。この掲示板に書かれているマクロは確かに便利なのですが、図形の左上が選択されたセル範囲に含まれているときに削除が行われるという仕様です。選択したセル範囲に含まれる図形を削除するサンプルマクロ図形の左上が選択されているセル範囲に含まれるよりも、図形の一部でも選択されたセル範囲に含まれているときに削除できるほうが、より便利だと感じたので、そんなマクロを作ってみました。Subサンプルマクロの解説セル以外が選択されているときに実行時エラーが発生しないように、セルが選択されていないときはこのマクロを終了します。ActiveSheet.Shapes図形の配置されている、セル範囲をオブジェクト変数・rngにセットします。Then重なっているときにその図形を削除しています。インストラクターのネタ帳アクティブなシート上の図形を一括削除するExcel(エクセル)マクロと、アクティブブックの全シートの図形を一括削除するマクロをご紹介しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。