Excel図形一括選択VBAの裏技！簡単にグループ化されたオブジェクトを操作する方法

2025.10.032026.09.04

Excelで図形を一括選択したいとき、特にグループ化されたオブジェクトをVBAで選択する方法を知っていると、作業がぐっと効率化されます。しかし、このプロセスにはいくつかの難しい部分があり、VBA初心者にはちょっとした壁があるかもしれません。今回は、Excel VBAでグループ化された図形を一括選択する方法と、よくある問題を解決するための秘訣を徹底解説します。

VBAでExcel図形を一括選択する基本的な方法
1. 基本的なコードの流れ
2. グループ化された図形の選択コード例
VBAコードをカスタマイズして問題を回避する方法
1. 「グループ化されていない図形が選択されてしまう」問題の解決方法
Excel図形一括選択VBAに関する疑問解決
1. Q1: VBAで複数の図形を一度に選択する方法はありますか？
2. Q2: VBAでグループ化されていない図形を除外する方法は？
まとめ

VBAでExcel図形を一括選択する基本的な方法

Excelのイメージ

まずは、VBAで図形を選択する基本的な方法を押さえておきましょう。Excelでは「Shape」オブジェクトを使って図形を操作できます。これを利用して、グループ化された図形を簡単に選択するコードを紹介します。

基本的なコードの流れ

「Shapesコレクション」を使用して、アクティブシート上に存在する全ての図形にアクセスします。
For Eachループで図形を一つずつチェックし、Shape.Typeプロパティを使ってその図形がグループ化されているかを確認します。
グループ化された図形を見つけたら、Shape.Selectメソッドを使って選択します。この際、ReplaceパラメータをFalseに設定することで、他の選択を維持しながらグループ化された図形だけを選択できます。

グループ化された図形の選択コード例

以下のコードは、アクティブシートにあるすべての図形を対象に、グループ化されているものを選択する簡単なマクロです。

vba

Sub SelectGroupedShapes()

    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes

        If shp.Type = msoGroup Then

            shp.Select Replace:=False

        End If

    Next shp

End Sub

VBAコードをカスタマイズして問題を回避する方法

単純な選択だけでは解決できないシチュエーションもあります。例えば、グループ化されていない図形も選択されてしまうことがあるため、問題を回避するための工夫が必要です。

「グループ化されていない図形が選択されてしまう」問題の解決方法

一番よくある問題は、グループ化されていない図形が選択された状態で処理を実行したときに、意図しない図形も選択されてしまうことです。このような事態を避けるためには、事前に選択状態を確認し、必要な場合に選択をリセットすることが有効です。

例えば、次のようなコードを追加することで、選択状態を事前にクリアすることができます。

vba

Sub ClearSelections()

    ActiveSheet.Shapes.SelectAll

    Selection.Delete

End Sub

このコードで、アクティブシート上の全図形を一度選択してから削除します。これにより、他の選択状態をリセットすることができ、無駄な選択を防ぎます。

Excel図形一括選択VBAに関する疑問解決

VBAの使い方に関して、読者の方からよく寄せられる質問をいくつかピックアップして、それに対する解決策を紹介します。

Q1: VBAで複数の図形を一度に選択する方法はありますか？

A1: 複数の図形を選択したい場合は、`Shape.Select`メソッドを使って一つずつ選択する方法もありますが、`Selection`オブジェクトを使うと複数選択が簡単にできます。以下のコードで複数の図形を一括選択できます。

vba

Sub SelectMultipleShapes()

    Dim shp As Shape

    Dim selectedShapes As Range

    For Each shp In ActiveSheet.Shapes

        If shp.Type = msoGroup Then

            If selectedShapes Is Nothing Then

                Set selectedShapes = shp

            Else

                Set selectedShapes = Union(selectedShapes, shp)

            End If

        End If

    Next shp

    selectedShapes.Select

End Sub

Q2: VBAでグループ化されていない図形を除外する方法は？

A2: グループ化されていない図形を除外する場合、`Shape.Type`をチェックして、`msoGroup`以外の図形を選択から除外することが可能です。上記のコードでその条件を加えれば、必要な図形のみを選択できます。

まとめ

今回は、ExcelでVBAを使ってグループ化された図形を一括で選択する方法を解説しました。VBA初心者でも簡単に理解できるように、コードの基本的な流れからよくある問題の解決策まで、実践的なアドバイスを提供しました。図形の操作は効率化を図るために重要なスキルなので、ぜひ自分の作業に取り入れて、作業時間を短縮しましょう。VBAを駆使して、Excelの作業を圧倒的に楽にする方法を学びました。