なぜVBAでオートシェイプを操作するのか
Excelといえば表計算ソフトですが、かつて開催された「オートシェイプコンテスト」のように、図形を組み合わせて緻密な作品を作ることも可能です。しかし、手作業ですべての図形を配置・調整するのは非常に骨が折れます。そこでVBAの出番です。VBAを使えば、定型的な図形の配置や、データに基づいた図形の動的な生成を自動化できます。これは、自動的にグラフや注釈を挿入するレポート作成ツールなど、実務においても非常に強力な武器になります。
基礎知識：ShapeオブジェクトとShapesコレクション
Excel VBAで図形を扱う際、中心となるのがShapesコレクションです。シート上に存在するすべての図形（オートシェイプ、画像、グラフなど）は、このコレクションに含まれています。個々の図形はShapeオブジェクトとして定義され、名前や位置、サイズ、塗りつぶし色などをプログラムから制御できます。
図形を操作する際は、まず対象のShapeオブジェクトを特定し、そのプロパティ（Left, Top, Width, Heightなど）を書き換えるのが基本です。
実装：VBAで図形を生成・配置する手順
図形を配置するには、ShapesオブジェクトのAddShapeメソッドを使用します。
1. AddShapeメソッドで図形の種類と位置を指定して作成。
2. 作成されたオブジェクトを変数に代入し、色やテキストなどの属性を設定。
3. 必要に応じて名前を付けておくと、後から特定しやすくなります。
サンプルプログラム：指定位置に図形を自動作成する
以下のコードは、アクティブシート上の指定したセル範囲に合わせて、自動的に「角丸四角形」を配置する実用的なサンプルです。
Sub CreateShapeExample()
Dim ws As Worksheet
Dim shp As Shape
Set ws = ActiveSheet
‘ 指定した範囲（B2:D5）に合わせて図形を配置
‘ AddShape(種類, 左位置, 上位置, 幅, 高さ)
Set shp = ws.Shapes.AddShape(msoShapeRoundedRectangle, _
ws.Range(“B2”).Left, _
ws.Range(“B2”).Top, _
ws.Range(“B2:D5”).Width, _
ws.Range(“B2:D5”).Height)
‘ 図形の見た目を調整
With shp
.Name = “MyReportBox” ‘ 後から探しやすくするために名前を付ける
.Fill.ForeColor.RGB = RGB(200, 230, 255) ‘ 水色に塗りつぶし
.Line.Weight = 2 ‘ 枠線の太さ
.TextFrame.Characters.Text = “自動生成された図形” ‘ 図形内に文字を追加
End With
MsgBox “図形を自動配置しました！”
End Sub
応用・注意点：現場で役立つコツ
1. 名前の重複に注意: AddShapeで作成する際、同じ名前の図形が既に存在するとエラーになることがあります。処理の冒頭で「既存の図形を削除する」などのクリーンアップ処理を入れるのが定石です。
2. 描画位置のズレ: セルのサイズを基準にする場合、行の高さや列の幅が変更されると図形がズレることがあります。図形のプロパティで「セルに合わせて移動やサイズ変更をする」設定（Placementプロパティ）をコード内で指定しておくと、より堅牢なツールになります。
3. 複雑な図形: 複数の図形を組み合わせて一つの作品にする場合は、それらをグループ化する「Groupメソッド」を活用してください。これにより、複雑な図形も一つのオブジェクトとして一括移動が可能になります。
オートシェイプは単なる装飾ではなく、データの可視化や直感的なインターフェース構築に役立つ要素です。ぜひVBAで「動く図形」を実装してみてください。
