1. 導入：なぜVBAで図形に文字を操作するのか
実務において、Excelで報告書やダッシュボードを作成する際、図形（シェイプ）を使って見栄えを整えることは珍しくありません。しかし、手動で何十個もの図形に同じような文言を入れたり、ステータスに応じて図形内の文字を書き換えたりするのは非常に手間のかかる作業です。
VBAを使って「図形の中に文字を書き込む」という操作を自動化できれば、動的なレポート作成や、条件に応じた図形の自動生成が可能になり、業務の正確性とスピードが格段に向上します。
2. 基礎知識：Excelにおける「シェイプ」の仕組み
Excel VBAにおいて、図形は「Shapeオブジェクト」として扱われます。ワークシート上の図形を操作するには、その図形を特定する必要があります。
図形に文字を入れるという操作は、Shapeオブジェクトの中の「TextFrame」というプロパティを通じて行います。
TextFrame.Characters.Text プロパティを使用することで、図形内の文字列を直接操作・取得できます。
3. 実装/解決策：図形を特定して文字を書き込む
図形に文字を追加する手順は以下の通りです。
1. 対象の図形（Shape）を取得する。
2. そのシェイプからTextFrameオブジェクトにアクセスする。
3. Charactersプロパティを使用して文字列を代入する。
もし図形がまだ存在しない場合は、Shapes.AddShape メソッドで作成した直後に同じ手順で文字を追加できます。
4. サンプルプログラム：図形に文字を自動入力する
以下のコードは、シート上に新しい四角形を作成し、そこに「処理完了」という文字を流し込む実用的な例です。
コード:
Sub AddTextToShape()
Dim ws As Worksheet
Dim myShape As Shape
Set ws = ActiveSheet
‘ 1. 四角形を作成（左から100, 上から100の位置に幅150, 高さ50で作成）
Set myShape = ws.Shapes.AddShape(msoShapeRectangle, 100, 100, 150, 50)
‘ 2. 図形に文字を追加する
‘ TextFrameプロパティ経由でCharactersにアクセスします
With myShape.TextFrame.Characters
.Text = “処理完了”
‘ 3. フォントなどの書式設定もVBAで制御可能です
With .Font
.Name = “ＭＳ ゴシック”
.Size = 14
.Color = RGB(0, 0, 255) ‘ 青文字に設定
.Bold = msoTrue
End With
End With
MsgBox “図形を作成し、文字を入力しました。”
End Sub
5. 応用・注意点：現場でハマりやすいポイント
・名前の指定による図形の特定
既存の図形を操作する場合、図形名（Shape Name）で指定するのが確実です。図形を選択し、画面左上の「名前ボックス」を確認することで、その図形の名前を特定できます。
例：ws.Shapes(“Rectangle 1”).TextFrame.Characters.Text = “更新済み”
・エラー回避のポイント
すべての図形に文字が入力できるわけではありません。グループ化された図形や、一部の特殊な形状ではTextFrameが正しく機能しない場合があります。
コードを実行する前に、対象の図形がテキストをサポートしているか（.TextFrameプロパティが存在するか）をチェックするロジックを入れると、より堅牢なプログラムになります。
・文字の配置調整
文字が図形の中で左上に寄ってしまう場合は、TextFrame.HorizontalAlignment や VerticalAlignment プロパティを使用して、中央揃えなどの設定を併せて行うと、より見栄えの良いレポートが完成します。
