こんにちは！開発現場の最前線で、日々数々のドキュメント自動化と格闘しているシニアアーキテクトの私です。
マクロの記録ボタンを押して生成されるコードを眺めるフェーズは、もう卒業しましたね。これからは、Wordのドキュメント構造を意のままに操り、人間が何時間もかけて行う手作業をコンマ数秒で終わらせる「本物の自動化スキル」を手に入れましょう。
今回は、業務自動化の現場でよく直面する、しかし中々手強いテーマ「表（Table）のセル内にある画像パスを動的に解析し、画像を挿入してセルサイズにフィットさせる」を徹底解説します。
ここをクリアできれば、Word VBAのオブジェクトモデルの理解度は一段と跳ね上がります。さあ、一緒に極限の知見へと踏み込みましょう！
—
1. なぜこの処理が「上級者向け」なのか？（背後にあるWordの仕様）
Excel VBAであれば `ActiveSheet.Pictures.Insert` でおしまいですが、Word VBAはそう簡単にはいきません。Wordの表（Table）と画像（InlineShape / Shape）の関係性には、次のようなトラップが潜んでいます。
- アンカーとインラインの概念の違い：画像をセルに流し込む際、単に挿入するとセルからはみ出したり、レイアウトが崩壊したりします。
- セルの寸法制限の壁：セルの幅（Width）は固定できても、高さ（Height）は「最低値（AtLeast）」や「固定値（Exactly）」に明示的に設定しないと、画像サイズに合わせてセルが勝手に拡大してしまいます。
- アスペクト比（縦横比）の維持：セルの枠いっぱいに広げつつ、画像の比率が歪まないように計算する数学的アプローチが必要です。
これらをすべてプログラムで制御し、「セルサイズに美しくフィットさせる」ための実践コードをこれから見ていきましょう。
—
2. 実装コード：セル内画像動的フィッティング・エンジン
以下のコードをWordのVBAエディタ（Alt + F11）に貼り付けてください。
このマクロは、「アクティブなドキュメントの最初の表」をスキャンし、各セルのテキストとして書かれた「画像ファイルパス（例: `C:\Images\sample.png`）」を読み取って、その場で美しい画像へと変換・リサイズします。
Sub FitImagesInTableCells()
Dim tbl As Table
Dim cel As Cell
Dim imgPath As String
Dim targetShape As InlineShape
Dim cellWidth As Single
Dim cellHeight As Single
Dim imgRatio As Double
Dim cellRatio As Double
‘ 1. ドキュメント内に表が存在するかチェック
If ActiveDocument.Tables.Count = 0 Then
MsgBox “ドキュメント内に表が見つかりません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 最初の表をターゲットにする（必要に応じてループやインデックスを変更）
Set tbl = ActiveDocument.Tables(1)
‘ 画面描画を停止してパフォーマンスを爆発的に向上させる（お約束のテクニック）
Application.ScreenUpdating = False
‘ 2. 表の全セルをスキャン
For Each cel In tbl.Range.Cells
‘ セル内のテキストから前後の改行やスペースを除去し、パスを取得
imgPath = Trim(cel.Range.Text)
‘ Wordのセル末尾にある特殊文字（Cell Endマーク vbCr & Chr(7)）を除去
imgPath = Replace(imgPath, vbCr & Chr(7), “”)
imgPath = Trim(imgPath)
‘ 3. 取得した文字列が有効なファイルパス（かつ存在するもの）かチェック
If imgPath <> “” And Dir(imgPath) <> “” Then
‘ セルの中身を一度クリア（パス文字列を消去して画像のためのスペースを作る）
cel.Range.Text = “”
‘ セルの幅と高さの寸法を取得（ポイント単位）
cellWidth = cel.Width
‘ ※注意: セルに高さの制限がない場合を考慮し、高さを明示的に取得・設定
cellHeight = cel.Height
‘ 4. 画像をインラインシェイプとして挿入
Set targetShape = cel.Range.InlineShapes.AddPicture(FileName:=imgPath, _
LinkToFile:=False, _
SaveWithDocument:=True)
‘ 5. アスペクト比を維持したリサイズ計算
‘ 画像本来の比率とセルの比率を比較する
imgRatio = targetShape.Width / targetShape.Height
cellRatio = cellWidth / cellHeight
‘ 高さに合わせるか、幅に合わせるかを動的に判断
If imgRatio > cellRatio Then
‘ 画像が横長の場合：セルの幅を基準にする
targetShape.Width = cellWidth 0.95 ‘ 余裕を持たせるため95%に
targetShape.LockAspectRatio = msoTrue
Else
‘ 画像が縦長の場合：セルの高さを基準にする
targetShape.Height = cellHeight 0.95
targetShape.LockAspectRatio = msoTrue
End If
‘ 6. セル内で画像を中央寄せにする
cel.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End If
Next cel
‘ 画面描画を復元
Application.ScreenUpdating = True
MsgBox “すべての画像パスの解析とフィッティングが完了しました！”, vbInformation, “完了”
End Sub
—
3. コードのキモを徹底解説！ここがエンジニアの腕の見せ所
初心者から一歩抜け出すために、上記のコードで使われている「プロの技」をいくつか解説しておきます。
① セル末尾の「見えないトラップ文字」の除去
imgPath = Replace(imgPath, vbCr & Chr(7), “”)
Wordの表のセルを取得すると、文字列の末尾には必ず `vbCr & Chr(7)`（セル終了マーカー）が含まれます。これをそのまま `Dir(imgPath)` に渡しても「ファイルが見つからない」というエラーになります。「Word特有のゴミ文字を消去する」というこの一手間を知っているだけで、エラーの9割を防げます。
② 画面描画の停止（`ScreenUpdating = False`）
表のセル数が数百個ある場合、セルごとに画像が挿入されて画面がチカチカと再描画されると、処理速度が何倍にも低下します。VBA自動化の鉄則として、処理の最初に画面描画を止め、最後に復元することで、体感速度を劇的に向上させます。
③ アスペクト比（縦横比）の維持ロジック
If imgRatio > cellRatio Then
targetShape.Width = cellWidth 0.95
…
ただ闇雲にセルのサイズに合わせると、画像が縦にびよーんと伸びてしまい、見た目が台無しになります。画像とセルの縦横比を比較し、「どちらを基準（上限）にするべきか」を条件分岐で算出してリサイズする。これがドキュメント品質を保つための極意です。
—
4. 陥りやすいエラーと回避のチェックリスト
現場でこのマクロを動かす際、以下のポイントでつまずきがちです。開発前に必ず確認してください。
- エラー：「実行時エラー ‘5174’: ファイルが見つかりません」
- 原因：セルに書かれているパスが間違っている、または相対パスになっている。
- 対策：パスは必ず `C:\Work\image.jpg` のような絶対パスでセルに記載してください。
- 画像がセルからはみ出る・変形する
- 原因：表のプロパティで「高さを固定」にしていない場合、画像挿入によってセル自体が勝手に引き伸ばされることがあります。あらかじめ表の行の高さを固定値にしておくことを推奨します。
—
まとめ：ここをクリアすればWord VBAは怖くない！
今回は、セル内のパスを解析して画像を自動フィットさせる、実務直結の高度なテクニックを解説しました。
Word VBAはExcelに比べて情報が少ないと言われていますが、オブジェクトモデルの階層構造（Application -> Document -> Table -> Cell -> Range -> InlineShape）さえ頭の中に地図として描ければ、どんな複雑なドキュメント生成も自由自在です。
ここをクリアしたあなたなら、もう「マクロの記録」に頼る必要はありません。ぜひ自分の開発現場の業務に組み込んで、周囲をあっと言わせる自動化ツールを作り上げてくださいね。それでは、次回の極限の知見でお会いしましょう！
