Word VBAを掌握する極限の知見：InlineShapeとShapeの境界線と、座標指定配置の完全自動化
開発プロジェクトの現場において、Word文書の自動生成ほど「見た目の制御」でエンジニアを絶望させるタスクはない。特に、仕様書、契約書、あるいは自動生成されるレポートにおいて、画像や図形（ロゴ、製品写真、レイアウト枠）を「指定した座標に、意図したサイズでピタリと配置する」という要件は、多くの者が泥沼にはまるポイントだ。
「なぜか画像が予期せぬ改行の間に挟まる」
「`Top`や`Left`プロパティを設定しようとしたら実行時エラーが発生した」
これらは、Word VBAの根幹をなす「InlineShape（インラインシェイプ）」と「Shape（シェイプ）」という2つの異なるオブジェクトのライフサイクルと仕様を理解していないがゆえに起こる、典型的な設計ミスである。
今回は、この2者の境界線を完全にハックし、実務で絶対に破綻しない「座標指定配置の自動化ロジック」を、チーフアーキテクトの視点から授けよう。
—
1. 根本原因の解明：なぜ「あのエラー」は起きるのか？
Wordのキャンバスにおいて、画像や図形を扱うクラスは大きく2つに分かれる。
1. `InlineShape`（文字列としての図形）
- 本質: 文字列と同じ「文字」として扱われる。フォントサイズを変更するように流し込まれるため、改行コードの間に存在し、段落のフローに従う。
- 限界: `Top`や`Left`といった絶対座標プロパティを持たない。これに対して座標を指定しようとすると、容赦なく実行時エラー（「このコレクションではこのメソッドまたはプロパティは使用できません」）が飛んでくる。
2. `Shape`（フローティング図形）
- 本質: 文字列の背後、あるいは前面に「浮いた（Floating）」状態で存在する。キャンバス上の任意の絶対座標（ページ余白からの距離など）に配置可能。
- 要件: 配置するには、基準となる「アンカー（Anchor：どの段落に紐づいているか）」が必須であり、ラップスタイル（テキストの折り返し）が「行内（In Line with Text）」以外に設定されている必要がある。
実務でやりがちな失敗は、`InlineShape`として挿入された画像オブジェクトに対し、そのまま座標操作を試みることだ。「画像を配置する」という要件を達成するためには、オブジェクトをインラインからフローティングへ、すなわち `InlineShape` から `Shape` へと昇格（変換）させるフェーズが不可欠となる。
—
2. 堅牢な設計：InlineShapeからShapeへの昇格ロジック
実務におけるプロダクションコードでは、ファイルシステム上の画像パスを受け取り、それを文書の指定位置に正確にアンカー留めし、ピクセル単位ではなくミリ単位で正確にリサイズ・配置する処理が求められる。
以下のコードは、単に動くだけのサンプルではない。エラーハンドリング、オブジェクトのライフサイクル管理、そしてWord特有の単位変換（ポイントとミリ・インチの換算）を網羅した、現場でそのまま使える実用的なモジュールだ。
プロダクションコード：座標指定型・画像配置エンジン
Option Explicit
‘ ==============================================================================
‘ 処理名: 外部画像をWord文書内の指定絶対座標に精密配置する
‘ 引数 :
‘ targetDoc – 対象のDocumentオブジェクト
‘ imagePath – 挿入する画像のフルパス (String)
‘ leftMM – 左からの絶対位置 (mm)
‘ topMM – 上からの絶対位置 (mm)
‘ widthMM – 幅 (mm) ※0の場合はアスペクト比維持
‘ ==============================================================================
Public Sub PlaceImageAtCoordinates(ByVal targetDoc As Document, _
ByVal imagePath As String, _
ByVal leftMM As Single, _
ByVal topMM As Single, _
Optional ByVal widthMM As Single = 0)
‘ 1. 事前検証（防御的プログラミング）
If Dir(imagePath) = “” Then
Err.Raise 53, “PlaceImageAtCoordinates”, “指定された画像ファイルが存在しません: ” & imagePath
End If
Dim targetRange As Range
Set targetRange = targetDoc.Paragraphs(1).Range ‘ 通常は文書先頭、または特定のブックマークを指定
Dim inShape As InlineShape
Dim shp As Shape
On Error GoTo ErrorHandler
‘ 2. 画像の挿入（最初は必ず InlineShape としてメモリ上に生成される）
‘ LinkToFile:=False, SaveWithDocument:=True で文書内に画像を完全に内包させる
Set inShape = targetDoc.InlineShapes.AddPicture(FileName:=imagePath, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Range:=targetRange)
‘ 3. 【重要】Shapeへの変換（InlineShape -> Shape）
‘ これにより、テキストの呪縛から解放され、絶対座標の指定が可能になる
Set shp = inShape.ConvertToShape
‘ 4. ラップスタイル（テキストの折り返し）の設定
‘ wdWrapNone (背面) または wdWrapTopBottom (上下) など要件に合わせて変更
shp.WrapFormat.Type = wdWrapNone
‘ 5. 基準位置の設定（ページ余白からの絶対配置にするため）
shp.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage
‘ 6. 単位変換（mm -> ポイント）
‘ Word VBAの内部計算単位はすべて「ポイント (1 inch = 72 pt = 25.4 mm)」
shp.Left = MillimetersToPoints(leftMM)
shp.Top = MillimetersToPoints(topMM)
‘ 7. サイズの制御
If widthMM > 0 Then
shp.LockAspectRatio = msoTrue
shp.Width = MillimetersToPoints(widthMM)
End If
‘ オブジェクトの明示的な解放
Set shp = Nothing
Set inShape = Nothing
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング：メモリリークとゾンビオブジェクトの防止
MsgBox “画像の配置中にエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “システムエラー”
Set shp = Nothing
Set inShape = Nothing
End Sub
—
3. チーフアーキテクトが教える、現場で活きる実装の勘所
上記のコードをプロジェクトに組み込む際、さらに品質を高めるための「知見」をいくつか共有しよう。
① データベース・ファイル連携時の注意点
社内システムやDBから画像パスと座標データ（JSONやCSVなど）を受け取って一括処理するバッチを組む場合、「画像の存在チェック（`Dir`関数）」をループの直前で必ず行うこと。
Wordのオブジェクト操作は比較的コストが重いため、途中でファイルが見つからずにエラー落ちすると、半端に生成されたドキュメントのゴミが残る。トランザクション概念がないWord VBAにおいては、処理前の「全リソースの事前検証」が鉄則である。
② アンカーのスコープとレイアウト崩れ防止
`ConvertToShape`を実行した図形は、文書内の「段落（Anchor）」に紐づく。もしユーザーが後からその図形よりも上の行で大幅なテキスト追加・削除を行った場合、アンカーそのものが移動し、意図しないページに図形が飛んでいく現象（いわゆる「アンカー迷子」）が発生する。
これを防ぐため、完全な固定レイアウトが必要な帳票などの場合は、図形を「ヘッダー・フッター」領域に配置するか、保護されたセクション内に閉じ込める設計にすることを強く推奨する。
③ 単位の罠（MillimetersToPointsの活用）
Word VBA初心者が最もやりがちなミスが、`shp.Left = 100` のように「生の値」を代入することだ。これは100ポイント（約35mm）を意味するが、デザイナーや仕様書が「10mmの位置に」と指定している場合、このコードでは大惨事になる。
必ず `MillimetersToPoints()` 関数を挟むか、定数 `Const MM_TO_PT As Double = 2.83464567` を定義して自前で担保すること。コードの可読性と保守性が劇的に向上する。
—
最後に：VBAを「おもちゃ」から「エンタープライズツール」へ
Word VBAは、書き方次第で単なる「マクロ」にもなれば、基幹システムと連携する「堅牢なドキュメント生成エンジン」にも化ける。
`InlineShape` と `Shape` のライフサイクルを完全に理解し、オブジェクトの変換と座標計算をロジカルに制御できれば、人間が何時間もかけて手動でレイアウト調整していた地獄のような作業を、一瞬にして、かつ1ピクセルの狂いもなく自動化することが可能だ。
プロフェッショナルとして、美しく、そして絶対に壊れないコードを実装し続けてほしい。
