概要
Excel VBAを用いた業務自動化において、図形（Shape）の操作は避けて通れない重要なスキルです。特に、複数の図形を組み合わせて図解やフローチャート、帳票を作成する場合、一つひとつの図形を個別に制御していては、コードの可読性が下がるだけでなく、メンテナンス性も著しく低下します。本稿では、複数の図形をプログラム的に連結・グループ化し、一括でプロパティを変更したり、位置を制御したりする手法を解説します。この技術を習得することで、動的なレポート作成や複雑なUI設計が飛躍的に効率化されます。
詳細解説
Excel VBAにおいて、複数の図形を扱う際の最大の障壁は「個別のShapeオブジェクトをどのように管理するか」という点です。通常、ShapeオブジェクトはShapesコレクションに格納されますが、これらをバラバラに操作すると、配置が崩れたり、重なり順が意図しないものになったりします。
ここで重要となるのが「グループ化（GroupItems）」という概念です。複数の図形を一つのグループ化されたオブジェクト（Grouped Shape）として扱うことで、移動、回転、サイズ変更、色設定などを一括で適用できるようになります。
グループ化を行うための手順は以下の通りです。
1. 対象となる図形を配列やコレクションに格納する。
2. それらの図形を「ShapeRange」オブジェクトとして定義する。
3. Groupメソッドを呼び出し、新しいグループオブジェクトを作成する。
このプロセスにおいて、特に注意すべきは「名前の管理」です。グループ化を行うと、元の個別の図形はグループの一部となり、親オブジェクト（グループ）を介して操作することになります。名前を指定して再取得する際には、グループ名と個別の図形名を正確に把握しておく必要があります。
サンプルコード
以下のコードは、アクティブシート上の特定の図形を抽出し、それらをグループ化してから、グループ全体を一括で移動・回転させる実用的な例です。
Sub GroupAndManipulateShapes()
Dim ws As Worksheet
Dim shpArray() As String
Dim targetGroup As Shape
Dim i As Integer
Dim shpCount As Integer
Set ws = ActiveSheet
' グループ化したい図形を特定する（例：名前が"Target_"で始まる図形）
shpCount = 0
For Each shp In ws.Shapes
If InStr(shp.Name, "Target_") > 0 Then
ReDim Preserve shpArray(shpCount)
shpArray(shpCount) = shp.Name
shpCount = shpCount + 1
End If
Next shp
' 図形が存在する場合のみ実行
If shpCount > 0 Then
' ShapeRangeを作成してグループ化
Set targetGroup = ws.Shapes.Range(shpArray).Group
' グループ化した図形に名前を付ける
targetGroup.Name = "ProcessedGroup"
' グループ全体を一括編集
With targetGroup
.Left = 100
.Top = 100
.Rotation = 45 ' 45度回転
.Fill.ForeColor.RGB = RGB(0, 128, 255) ' 色を一括変更
End With
MsgBox "図形をグループ化し、編集を完了しました。"
Else
MsgBox "対象の図形が見つかりませんでした。"
End If
End Sub
実務アドバイス：メンテナンス性を高めるテクニック
実務で図形操作を扱う際、最も多いトラブルが「コード実行後に図形の名前が変わってしまい、二度目の実行でエラーになる」というケースです。これを防ぐために、以下の3つのポイントを意識してください。
第一に、「名前の固定化」です。グループ化する際、デフォルトの名前（”Group 1″など）に依存せず、必ずコード内で明確な名前をセットしてください。これにより、後続の処理で「Shapes(“MyUniqueName”)」のように確実にオブジェクトを特定できます。
第二に、「階層構造の理解」です。グループ化した図形の中にある個別の図形を操作したい場合、`targetGroup.GroupItems(1)`のようにインデックス番号、または名前を指定してアクセスします。階層が深くなるとコードが複雑になるため、必要以上にグループを重ねない（入れ子構造を避ける）ことが賢明です。
第三に、「エラーハンドリングの徹底」です。図形はユーザーによって手動で削除されるリスクがあります。`On Error Resume Next`を適切に配置し、図形が存在しない場合や既にグループ化されている場合に備えた防御的なコーディングを心がけましょう。また、もしグループを解除する必要がある場合は、`targetGroup.Ungroup`メソッドを使用します。このとき、解除した瞬間に各図形が個別の名前（Shape1, Shape2…）に戻ってしまうため、再グループ化の前に再度名前を整理するロジックが必要になることを覚えておいてください。
まとめ
Excel VBAで複数の図形を連結・編集する技術は、単なる見た目の装飾に留まりません。動的なダッシュボードの構築や、複雑な業務フローの可視化において、プログラムで制御可能な「パーツ」を自作するための基盤となります。
今回解説した「ShapeRangeによるグループ化」と「グループ化後のプロパティ一括操作」は、VBAの図形操作における最も強力な武器の一つです。まずは、本稿のサンプルコードを参考に、ご自身の業務で散らばっている図形を一つにまとめるところから始めてみてください。名前の管理と階層構造への意識を持つだけで、あなたのVBAコードはプロフェッショナルな品質へと一段階上のステージへ引き上げられるはずです。自動化の可能性は、あなたの工夫次第で無限に広がります。
