Excel VBA 複数の図形（シェイプ）をグループ化する

複数のシェイプのグループ化

ワークシート上に配置された複数の図形やワードアート、線、矢印などのシェイプは、配置した後にグループ化することで相対的な位置を保つことができ一つのシェイプとして扱うことができて大変便利です。

Excelの操作の場合、「Ctrl」【ｺﾝﾄﾛｰﾙ】キーを押しながらマウスの「左ボタン」で各シェイプを選択しマウス「右ボタン」でメニューからグループ化を行いますが、シェイプが重なっていたり、数が多い場合は手間がかかりますし、失敗することも多いと思います。

VBAでは、ShapeRenge【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションGroup【ｸﾞﾙｰﾌﾟ】メソッドを使用して、複数のシェイプを一つのシェイプとしてグループ化します。

アクティブシート上の複数のシェイプをグループ化するコードと解説

Sub グループ化()
Dim 名前 As String
On Error GoTo エラー処理
名前 = InputBox("シェイプのグループ名を入力してください｡")
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Group.Name = 名前
MsgBox 名前 & "という名前でグループ化しました。"
Exit Sub
エラー処理:
MsgBox "グループ化するには2個以上のシェイプが必要です、"
End Sub

2行目【Dim 名前 As String】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数でユーザーから受け取るグループの名前を格納する変数「名前」を文字列型(string)で宣言します。

3行目【On Error GoTo エラー処理】
On Error【ｵﾝｴﾗｰ】ステートメントを使用して、シェイプが1つしかなかった場合、Group【ｸﾞﾙｰﾌﾟ】メソッドはエラーになるので、エラーが発生した場合に実行がストップしないようにGoTo【ｺﾞｰﾄｩ】ステートメントでラベルで指定した「エラー処理」の位置（9行目）までジャンプします。

4行目【名前 = InputBox(“シェイプのグループ名を入力してください｡”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用してユーザーにシェイプにグループ名を入力してもらいその値を「変数名前」に代入します。

5行目【ActiveSheet.Shapes.SelectAll】
アクティブシートの複数のシェイプを表すShapes【ｼｪｲﾌﾟｽ】コレクションに対してSelectAll【ｾﾚｸﾄｵｰﾙ】メソッドですべてのシェイプを選択します。Shapes【ｼｪｲﾌﾟｽ】コレクションはGroup【ｸﾞﾙｰﾌﾟ】メソッドを持たないので直接、Group【ｸﾞﾙｰﾌﾟ】メソッドは使用できません。

6行目【Selection.ShapeRange.Group.Name = 名前】
Selection【ｾﾚｸｼｮﾝ】プロパティで現在選択されているシェイプを参照して、選択されているシェイプの範囲をShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションで取得し、Group【ｸﾞﾙｰﾌﾟ】メソッドで複数のシェイプを一つにまとめます。Shape【ｼｪｲﾌﾟ】オブジェクトが返されるので、それに対しName【ﾈｰﾑ】プロパティで「変数名前」に格納された値を設定します。

7行目【MsgBox 名前 & “という名前でグループ化しました。”】
MsgBox【ﾒｾｰｼﾞﾎﾞｯｸｽ】関数を利用してグループ化したことをユーザーに伝えます。

8行目【Exit Sub】
エラーが発生せずに、シェイプのグループ化が出来た場合は、Exit【ｴｸﾞｼﾞｯﾄ】ステートメントで処理を終了します。

9行目、10行目【エラー処理:
MsgBox “グループ化するには2個以上のシェイプが必要です、”】
エラーが発生したとき、つまり、シェイプが一つしかなかった場合MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してユーザーにメッセージを表示します。

グループ化を解除する場合は、グループ化されたシェイプを選択状態にしてマウス右ボタンでメニューを表示し「グループ解除」をできますが、簡単なので、グループ解除のコードもご紹介します。同じ標準モジュール内に記述しておくと良いと思います。

シェイプのグループ解除のコード例

Sub グループ解除()
ActiveSheet.Shapes.SelectAll
Selection.Ungroup
End Sub

以上で、複数の図形（シェイプ）をグループ化するについての解説を終了します。ありがとうございました。