Excel2013「選択されていないオートシェイプを削除」という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。大量の図形(オートシェイプ)が存在しているときに、一部の図形だけを残して、大部分を削除する方法を探している方による検索です。削除するほうが少なければ何の問題もありませんが、削除するほうが多いと、確かにかなり面倒です。Applications)でExcelマクロを作ってみました。[スポンサードリンク]選択されていない図形だけを選択するサンプルマクロワークシート上に、複数の図形が存在していて、いくつかの図形が選択されている状態で以下のマクロを実行すると、選択されていなかった図形だけが選択された状態になります。Subサンプルマクロの解説まず、選択されているShapeオブジェクトのIDだけのコレクションを作成しておきます。shp.ID配列でも勿論OKですが、コレクションを使うほうがシンプルなコードになりますので、ここではコレクションを使っています。Each~Nextループを回してチェックを開始します。For元々選択されていた図形でなかったときに選択を行っています。Replace:=Falseまた、そもそもShapeが選択されていないときは、処理を行わないように、最初に以下のIf文を入れてあります。Subアクティブシート上に画像がある場合オートシェイプ(図形)だけでなく、画像があった場合、上記のマクロは画像も処理対象とします。shp_idsとしてください。shp.Deleteとすれば、選択されていない図形を削除するマクロになります。インストラクターのネタ帳アクティブなスライド上で、選択されていない図形(オートシェイプ)だけを選択する、PowerPoint(パワーポイント)マクロをご紹介しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。