なぜAddTextboxメソッドが重要なのか
実務でExcel帳票を作成する際、特定のセルに注釈を入れたり、動的にコメントを表示させたりしたい場面は非常に多いです。手動でテキストボックスを配置するのは時間がかかり、レイアウトのズレも発生しがちです。
AddTextboxメソッドを使いこなせば、セルの値に基づいて自動的にテキストボックスを作成・配置できます。例えば、数式エラーの警告を表示したり、特定の条件を満たすセルに補足情報を自動付与したりするなど、帳票の自動作成や可視化ツールにおいて非常に強力な武器となります。
基礎知識：AddTextboxの仕組み
AddTextboxメソッドは、Shapesコレクション（図形全般を管理するオブジェクト）に対して実行します。
構文は以下の通りです。
Object.AddTextbox(Orientation, Left, Top, Width, Height)
重要なポイントは、位置情報（Left, Top）とサイズ情報（Width, Height）をポイント単位で指定する必要がある点です。また、Orientation引数には、テキストを水平にするか垂直にするかを指定します。これらを正確にセル位置と同期させることで、あたかもセルに固定されたような綺麗な配置が可能になります。
実装のポイント
実務で特に役立つのは、特定のセルを基準にして位置を計算するテクニックです。
c.Left や c.Top といったプロパティを参照することで、ループ処理の中で対象セルに合わせて自動的に配置場所をずらすことができます。また、作成後に AutoSizeプロパティ をTrueに設定することで、入力されたテキスト量に応じてボックスのサイズを自動調整させるのが、見た目を綺麗に保つコツです。
サンプルプログラム：数式チェック用コメントの自動生成
以下のコードは、アクティブシート内の数式が入ったセルの右隣に、そのセルの数式を表示するテキストボックスを自動生成する実務的なサンプルです。
Sub CreateFormulaComment()
Dim c As Range
‘—シート内の数式セルをすべてループ処理
For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
‘—数式の右隣のセル位置にテキストボックスを作成
With ActiveSheet.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=c.Offset(0, 1).Left + 5, _
Top:=c.Offset(0, 1).Top, _
Width:=100, _
Height:=20)
‘—テキスト内容を数式に設定
.TextFrame.Characters.Text = c.FormulaLocal
‘—サイズを自動調整
.TextFrame.AutoSize = True
‘—見栄えのために背景色や枠線を設定（任意）
.Fill.ForeColor.RGB = RGB(255, 255, 200)
End With
Next c
End Sub
応用・注意点：現場でのバグ回避策
1. 重複作成の防止: マクロを繰り返し実行すると、同じ場所にテキストボックスが重なって作成されます。再実行する可能性がある場合は、あらかじめ ActiveSheet.Shapes.SelectAll で全選択して削除するか、特定の名前を付けて管理し、同名の図形があれば削除する処理を組み込みましょう。
2. 単位のズレ: Excelのオブジェクト位置はポイント単位ですが、セルの幅（ColumnWidth）は文字数単位です。位置計算には必ず Left や Width プロパティ を直接参照してください。
3. 保護されたシート: シートが保護されていると実行時にエラーになります。プログラムの先頭で Unprotect を行い、終了後に再保護する処理を忘れずに入れてください。
