導入：なぜ「吹き出し」をVBAで扱う必要があるのか？
Excelで資料を作成する際、セルの値だけでなく、図形の「吹き出し」を使って補足説明を入れることは非常に有効です。しかし、データ量が多い場合や、定期的にレポートを更新する場合、一つひとつ手作業で吹き出しを配置するのは非常に手間がかかります。
VBAを活用すれば、特定の条件を満たすセルに対して自動で吹き出しを挿入したり、数値を更新した際に吹き出し内のテキストを連動させるなど、手作業のミスを減らし、レポート作成を自動化することが可能になります。今回は、VBAで吹き出しを制御する基本スキルを解説します。
基礎知識：Excelの「図形（Shape）」の仕組み
Excel VBAにおいて、吹き出しなどの図形は「Shapeオブジェクト」として扱われます。
すべての図形は「Shapesコレクション」に格納されており、名前やインデックス番号で指定して操作します。吹き出し特有の重要なポイントは、図形そのもの（Shape）と、その中にあるテキスト（TextFrame）が別々に管理されているという点です。VBAで吹き出しを扱う際は、「図形を追加する」ことと「その中の文字を書き換える」ことの2段階の操作を理解する必要があります。
実装・解決策：VBAで吹き出しを追加する
吹き出しを追加するには、ShapesコレクションのAddShapeメソッドを使用します。
AddShapeメソッドの第一引数に「msoShapeCallout…」といった定数を指定することで、様々な形状の吹き出しを選択できます。その後、TextFrameプロパティにアクセスして文字を挿入します。
サンプルプログラム：指定したセルに吹き出しを自動追加する
以下のコードは、アクティブセルに吹き出しを挿入し、メッセージを表示する実用的なサンプルです。
Sub AddCalloutToCell()
‘ 変数の宣言
Dim myShape As Shape
Dim targetCell As Range
‘ 選択中のセルをターゲットにする
Set targetCell = ActiveCell
‘ 吹き出し（角丸四角形吹き出し）を挿入
‘ 引数：種類, 左位置, 上位置, 幅, 高さ
Set myShape = ActiveSheet.Shapes.AddShape( _
Type:=msoShapeRoundedRectCallout, _
Left:=targetCell.Left + targetCell.Width + 10, _
Top:=targetCell.Top, _
Width:=100, _
Height:=50)
‘ 吹き出しの中に文字を入れる
With myShape.TextFrame.Characters
.Text = “ここを確認してください！”
.Font.Size = 10
End With
‘ 吹き出しの線の位置を調整する（調整値：Adjustments）
‘ 1番目の調整値（吹き出しの先端位置）を微調整
myShape.Adjustments.Item(1) = -0.5
MsgBox “吹き出しを生成しました！”
End Sub
応用・注意点：現場で役立つ補足情報
1. 吹き出しの削除について
自動生成した吹き出しをクリアしたい場合、全ての図形を削除するとグラフなども消えてしまう恐れがあります。吹き出しには「Name」プロパティで名前を付けておき、「特定の名前の図形だけを削除する」というロジックを組むのが安全です。
2. 黄色いハンドルの操作（Adjustments）
手動操作で黄色いハンドルを動かす操作は、VBAでは「Adjustments」プロパティで制御します。インデックス番号を指定して数値を変更することで、先端の位置を正確にコントロールできます。
3. セルとの連動
吹き出し内の文字をセル値と連動させたい場合、VBAで「myShape.TextFrame2.TextRange.Formula = “=A1″」のように数式を代入することで、セルが更新されるたびに吹き出しの中身も自動で変わる仕組みが作れます。ぜひ現場の業務効率化に役立ててください。
