導入：なぜExcelで「タイトルロゴ」を自動生成するのか？
実務において、定型的な報告書やダッシュボードを作成する際、毎回手作業でタイトルロゴを配置するのは手間がかかります。特に、決まったフォーマットで大量のファイルを生成する場合、VBAを使って「ロゴ（図形）を自動挿入し、見栄えを整える」処理を組み込んでおくと、作業時間が大幅に短縮され、デザインの統一感も保たれます。今回は、Excel VBAを用いてWordのワードアートのような「タイトルロゴ」をプログラムで自動作成する手法を解説します。
基礎知識：Shapeオブジェクトの理解
Excel VBAで図形や画像などを操作する際、これらは「Shapeオブジェクト」として扱われます。セルとは異なり、シート上の「描画レイヤー」に存在するため、座標（Left, Top）やサイズ（Width, Height）を数値で指定して配置します。特にタイトルロゴには「テキストボックス」を活用するのが一般的です。VBAではこれらを`ActiveSheet.Shapes.AddTextbox`メソッドで生成し、プロパティを操作することで、見栄えの良いタイトルを構築できます。
実装：プログラムの論理構造
タイトルロゴを配置する手順は以下の通りです。
1. `AddTextbox`メソッドでテキストボックスを作成。
2. 内部の`TextFrame`プロパティにアクセスし、タイトル文字列を流し込む。
3. `Font`プロパティで文字サイズや太さを調整。
4. `Fill`や`Line`プロパティで背景色や枠線を設定し、ロゴらしく装飾する。
5. シートの中央や任意のセル位置に合わせて座標を調整する。
サンプルプログラム：タイトルロゴ生成マクロ
以下のコードは、アクティブシートの指定位置にタイトルロゴを生成する実用的なサンプルです。
Sub CreateTitleLogo()
Dim ws As Worksheet
Dim shp As Shape
Set ws = ActiveSheet
‘ テキストボックスを図形として作成（引数: 横位置, 縦位置, 幅, 高さ）
Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 50, 400, 60)
‘ ロゴの装飾とテキスト設定
With shp
.TextFrame.Characters.Text = “月次報告書タイトル”
With .TextFrame.Characters.Font
.Name = “Meiryo UI”
.Size = 24
.Bold = msoTrue
.Color = RGB(255, 255, 255) ‘ 白文字
End With
‘ 背景と枠線の設定
.Fill.ForeColor.RGB = RGB(0, 102, 204) ‘ 青背景
.Line.ForeColor.RGB = RGB(0, 51, 102) ‘ 濃い青枠線
‘ 配置の微調整
.TextFrame.HorizontalAlignment = xlHAlignCenter
.TextFrame.VerticalAlignment = xlVAlignCenter
End With
MsgBox “タイトルロゴを生成しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. 重複作成の回避
マクロを何度も実行すると、そのたびにロゴが重なって作成されてしまいます。実務では、処理の冒頭で「特定の名前を持つ図形が既に存在するかチェックし、あれば削除する」という処理（`shp.Delete`）を追加するのが鉄則です。
2. 印刷時のズレ
図形はセルの幅や高さに追従しない場合があります。配置を固定したい場合は、`Placement`プロパティを`xlMoveAndSize`に設定することで、セルと共に移動・サイズ変更させる設定が可能です。
3. デザインの柔軟性
より凝ったデザインにしたい場合は、一度手動で図形を作成し、マクロ記録機能を使って出力されたコードを確認してください。`Shape.Fill.UserPicture`を使えば、会社ロゴの画像ファイルを貼り付けることも可能です。
