こんにちは！ Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを見たものの、「なんだこの呪文は…」「いざ画像を動かそうとすると、予期せぬ場所に吹っ飛んでいく…」と絶望した経験はありませんか？
安心してください。それ、あなたのせいではありません。Wordの歴史と、オブジェクトモデルの「闇」を知らないから当然なんです。
今回は、Word VBAにおいて多くの開発者が挫折する「InlineShape（インラインシェイプ）」と「Shape（シェイプ）」の決定的な境界線と、画像を意のままに座標配置するための極意を、優しく、そして徹底的に解説していきます。
ここをクリアすれば、あなたのWord VBAスキルは「初学者」のステージを完全に抜け出します。一緒にマスターしていきましょう！
—
1. そもそもなぜ、Wordの画像操作は難しいのか？
Excel VBAであれば、画像や図形はすべて「シート上の絶対座標（あるいはセル基準）」で管理されます。非常にシンプルですよね。
しかし、Wordの本質は「文字の流れ（フロー）」です。
文字が追加されれば下の文章は押し出され、改行されればページが変わる。この「流動的なキャンバス」の中に画像を配置するため、Wordの画像には2つの異なる顔（オブジェクト）が用意されています。
- InlineShape（文字と同じ扱いの画像）
- Shape（文字とは独立した、自由に配置できる画像）
この2つを混同することが、Wordマクロ地獄の入り口です。まずはそれぞれの正体を暴いていきましょう。
—
2. 【InlineShapeとShapeの正体】ふたつの顔を見極めろ
① InlineShape（インライン・シェイプ）とは？
- 正体： 「文字の仲間」です。
- 特徴： 文書に画像をドラッグ＆ドロップでポンと入れたとき、大体これになります。カーソルがある位置（段落）に文字と同じように文字として存在するため、改行すれば一緒に動きます。
- メリット： 配置が崩れにくい。
- デメリット： 「座標指定」ができません。 画面の端に置く、文字の背面に回すといったレイアウトの自由度が効きません。
② Shape（シェイプ）とは？
- 正体： 「文字から独立した浮動体」です。
- 特徴： 描画キャンバスに描いた図形や、「前面・背面」などのレイアウトオプションが設定された画像です。
- メリット： X/Y座標を指定してミリ単位で配置可能。
- デメリット： どこにアンカー（基準となる段落）があるかを意識しないと、予期せぬページに吹っ飛びます。
> 先輩からのアドバイス：
> 「画像を特定の位置にピシッと配置したい！」という自動化案件で戦うなら、私たちが相手にすべきなのは Shape です。
—
3. 自動化の必須テクニック：InlineShapeをShapeへ変換する
実務の自動化では、ユーザーが適当に挿入した画像（InlineShape）をプログラム側で受け取り、それを座標指定可能な状態（Shape）に「変異（コンバート）」させるのが王道パターンです。
以下のコードを見てください。これが実務で使える最初の武器になります。
Sub ConvertAndPositionImage()
Dim ilShape As InlineShape
Dim targetShape As Shape
‘ 文書の先頭にある最初の画像を対象とする
If ActiveDocument.InlineShapes.Count > 0 Then
Set ilShape = ActiveDocument.InlineShapes(1)
‘ 【重要】InlineShapeをShapeオブジェクトに変換！
‘ これにより、座標プロパティが使えるようになります
Set targetShape = ilShape.ConvertToShape
‘ 座標とサイズをミリ単位で指定する（1mm ≒ 28.35ポイント）
With targetShape
‘ 文字列の配置を「外周線（四角）」にして、文字のラップを有効に
.WrapFormat.Type = wdWrapSquare
‘ ページ左端からの絶対座標（例: 50mm）
.Left = Application.InchesToPoints(50 / 25.4) ‘ 簡易的にポイント換算
‘ または直接ポイントで指定する場合： .Left = 141.73 (約50mm)
‘ ページ上端からの絶対座標（例: 100mm）
.Top = 283.46 ‘ 約100mm
‘ サイズの変更（幅を50mmに固定、比率を維持）
.LockAspectRatio = msoTrue
.Width = 141.73
End With
MsgBox “画像の座標配置とリサイズが完了しました！”, vbInformation
Else
MsgBox “文書内に画像が見つかりません。”, vbExclamation
End If
End Sub
コードの解説
- `ilShape.ConvertToShape`
これが魔法のメソッドです。これによって、文字の仲間だった画像が、自由な座標を持つ`Shape`へと生まれ変わります。
- `ActiveDocument.InlineShapes.Count`
エラーを防ぐための鉄則です。画像が1枚もない状態で処理を走らせるとVBAは容赦なくクラッシュ（実行時エラー）するため、必ず「存在確認」を挟みます。
- `ポイント（Point）という単位の罠`
Word VBAの内部計算はすべて「ポイント」で行われます（1インチ ＝ 72ポイント）。私たち日本人になじみのあるミリ（mm）で指定したい場合は、一度計算するか、`InchesToPoints`などを経由する必要があります。
—
4. 現場で絶対につまずく「3大エラー」と回避策
実務でこのコードを書き始めると、必ず以下の壁にぶつかります。先回りして解決策をお伝えしておきますね。
エラー1：画像が予期せぬページに飛んでいく（アンカー問題）
Shapeには必ず「アンカー（錨）」という、基準となる段落が存在します。
座標を「ページ左端から50mm」と指定しても、そのアンカーがある段落が別のページに押し出されると、画像も一緒に大移動します。
- 対策： 位置を固定したい場合は、ヘッダー/フッター内に図形を配置するか、本文中の特定の段落（`Range`）に確実にアンカーをロックする設計にしましょう。
エラー2：「メソッドまたはデータメンバが見つかりません」
`InlineShape`の変数に対して `.Left` や `.Top` を使おうとすると、このコンパイルエラーが発生します。
- 対策： 今操作しようとしているオブジェクトが `InlineShape` なのか `Shape` なのか、変数宣言と代入をもう一度見直してください。
エラー3：画像が重なってぐちゃぐちゃになる
複数の画像をループ処理で一括配置する際、すべての座標を同じ（例: Left = 0, Top = 0）にしてしまうと、画像が完全に重なり合って見えなくなります。
- 対策： ループカウンタ（`i`など）を使って、`Top = 50 + (i 100)` のように、処理するたびに配置位置をずらすオフセット計算を入れましょう。
—
5. まとめ：Word VBAは怖くない！
お疲れ様でした！ 今回の重要なポイントをまとめます。
1. Wordの画像には「文字仲間のInlineShape」と「自由人のShape」がある。
2. 座標を指定してピシッと配置したいなら、`ConvertToShape` でShapeに変換する。
3. サイズや位置は「ポイント単位」で計算・指定する。
Word VBAは、Excelに比べて「文書の構造」を意識しなければならないため、最初は少し難しく感じるかもしれません。しかし、今回解説したオブジェクトの正体さえ掴んでしまえば、毎日のように発生する「写真付きレポートのレイアウト調整地獄」からあなたを永遠に解放してくれます。
「ここをもっと深掘りしたい」「表の中に画像を綺麗に収めたい」といった応用的な疑問が出てきたら、いつでもまた先輩エンジニアの扉を叩いてくださいね。
あなたの自動化ライフが、最高にスマートなものになりますように！
