1. 導入：なぜVBAで図形描画を自動化するのか？
Excelで帳票を作成する際、特定の条件に応じて「警告の枠線を表示したい」「データの進捗を視覚化したい」といった要望はありませんか？手動で図形を配置するのは手間がかかりますし、修正が入るたびにやり直すのは非効率です。VBAを使えば、特定のセル位置に図形を自動挿入し、色やサイズを瞬時に変更できます。今回は、実務で役立つ図形描画の自動化手法を解説します。
2. 基礎知識：Shapesオブジェクトの概念
Excel VBAで図形を扱う際、最も重要なのがShapesオブジェクトです。
・Shapesコレクション：シート上にあるすべての図形を管理する集まりです。
・AddShapeメソッド：新しい図形を作成する際に使用します。
・DrawingObject：作成した図形のプロパティ（塗りつぶしの色、線、テキストなど）を操作する際に参照します。
図形を操作する際は、まず「どの位置（Left, Top）」に「どのくらいの大きさ（Width, Height）」で作成するかを数値で指定するのが基本です。
3. 実装/解決策：図形描画の手順
実務で図形を配置する場合、特定のセルを基準に位置を合わせるのが一般的です。以下の手順で実装します。
1. `Shapes.AddShape` メソッドで図形の種類を指定して作成する。
2. 作成した図形を変数（Shape型）に格納する。
3. 塗りつぶしの色（Fill.ForeColor）や線の太さ（Line.Weight）を調整する。
4. 必要に応じて図形内にテキストを入力する。
4. サンプルプログラム：指定セルに自動で図形を描く
以下のコードは、アクティブセルの位置に「四角形」を描画し、色を塗りつぶす実用的なサンプルです。
Sub DrawShapeOnCell()
Dim shp As Shape
Dim targetCell As Range
‘ 現在選択しているセルを基準にする
Set targetCell = ActiveCell
‘ セルの位置に四角形を追加（AddShape 引数1:種類, 引数2:左, 引数3:上, 引数4:幅, 引数5:高さ）
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
targetCell.Left, _
targetCell.Top, _
targetCell.Width, _
targetCell.Height)
‘ 図形の見た目を設定
With shp
.Fill.ForeColor.RGB = RGB(255, 200, 200) ‘ 薄い赤色で塗りつぶし
.Line.ForeColor.RGB = RGB(255, 0, 0) ‘ 赤い枠線
.Line.Weight = 2 ‘ 線の太さ
.TextFrame.Characters.Text = “重要” ‘ テキスト入力
End With
MsgBox “図形を描画しました。”
End Sub
5. 応用・注意点：現場で陥りやすいバグの回避策
① 図形の重なり問題
マクロを何度も実行すると、同じ場所に図形が重なってしまいます。図形を更新する際は、あらかじめ既存の図形を削除するロジックを組み込むのが定石です。
例：`ActiveSheet.Shapes.SelectAll` や、特定の名前を付けて管理し `Shapes(“図形名”).Delete` を行う手法が有効です。
② セル結合への対応
`targetCell.Left` などを使用する場合、セルが結合されていると座標がずれることがあります。その場合は、`targetCell.MergeArea.Left` を使用すると、結合された範囲全体を正しく取得できます。
③ 名前管理の重要性
図形が複数ある場合、操作対象を特定するために `shp.Name = “MyButton”` のように名前を付けておくと、後から修正や削除を行う際に非常にスムーズです。
