1. 導入：なぜオートシェイプ操作の自動化が重要か
実務において、Excelで図形（オートシェイプ）を使用して業務フロー図や構成図を作成することは多いでしょう。しかし、図形が複雑に重なると、マウス操作での「グループ解除」や「再グループ化」は非常に手間がかかります。特に、決まったテンプレートをベースに図形の構成を動的に変更したい場合、手作業ではミスが発生しがちです。今回は、VBAを使って図形のグループ化を自在に操る技術を解説します。
2. 基礎知識：グループ化の仕組み
Excelの図形（Shapeオブジェクト）は、複数の図形をまとめて「グループ化」することで、一つの大きな図形のように扱えます。VBAでは、グループ化されているShapeオブジェクトに対して「Ungroupメソッド」を使うことで解除を行い、バラバラになった個別の図形に対して回転や色の変更を加えることができます。重要なのは、「グループの中にさらにグループがある場合（入れ子構造）」です。この場合、すべての図形を操作するには、階層分だけ繰り返し解除処理を行う必要があります。
3. 実装/解決策：グループ解除と再グループ化のロジック
グループ化された図形を操作する手順は以下の通りです。
1. 対象のグループ化された図形を選択（または特定）する。
2. Ungroupメソッドを実行して、構成要素に分解する。
3. 必要に応じて各Shapeのプロパティ（RotationやFill.ForeColorなど）を書き換える。
4. 最後に、必要な図形を再度選択してGroupメソッドでまとめる。
4. サンプルプログラム：図形のアレンジを自動化する
以下のコードは、選択したグループ化された図形を一度解除し、中の図形を回転させた後に再グループ化する実用的なサンプルです。
Sub ArrangeShapeGroup()
Dim shp As Shape
Dim groupedShp As Shape
‘ 選択中の図形がグループ化されているか確認
If Selection.Type <> msoSelectionShape Then
MsgBox “図形を選択してください。”
Exit Sub
End If
Set groupedShp = Selection.ShapeRange(1)
‘ 1. グループ解除
‘ ※階層が深い場合はこの処理をループさせる必要があります
On Error Resume Next ‘ 解除できない場合に備える
Set shp = groupedShp.Ungroup
On Error GoTo 0
‘ 2. グループ内の特定パーツ（ここでは例として全て）を回転
For Each shp In Selection.ShapeRange
shp.Rotation = shp.Rotation + 45 ‘ 45度回転
Next shp
‘ 3. 再グループ化
‘ 解除後の選択状態の図形をすべてまとめてグループ化
Selection.ShapeRange.Group
MsgBox “図形のアレンジが完了しました。”
End Sub
5. 応用・注意点：現場で陥りやすいバグの回避策
実務でこのプログラムを運用する際は、以下の2点に注意してください。
・入れ子構造の罠:
グループの中にグループが含まれている場合、一度のUngroupでは完全にバラバラになりません。再帰関数（自分自身を呼び出す関数）を使って、グループがなくなるまでUngroupを繰り返す処理を実装するのが、プロフェッショナルな現場での定石です。
・エラーハンドリング:
「既にグループ化されていない図形」に対してUngroupを実行するとエラーになります。必ず「Type」プロパティなどで図形がグループ化されているか判定するガード節を設けるようにしましょう。
グラデーションの変更や回転をVBAで制御できるようになれば、何百枚もの資料作成も一瞬で終わらせることが可能です。ぜひ、ご自身の業務に合わせてカスタマイズしてみてください。
