Word VBAの深淵：InlineShapeとShapeの「二重構造」を制し、画像を完全制御する
Word VBAで画像操作をしようとした際、多くのエンジニアが「なぜか特定の一部しか処理されない」「エラーで止まる」という壁にぶつかる。その理由は単純だ。Wordのオブジェクトモデルにおける「InlineShape（埋め込み型）」と「Shape（浮動型）」という、歴史的経緯で分断された二つの世界を理解していないからだ。
本記事では、この二重構造を掌握し、実務で絶対に壊れない画像一括処理ルーチンを構築するための極限の知見を授ける。
—
1. なぜ「InlineShape」と「Shape」を分ける必要があるのか？
Wordの文書内で画像は、以下のいずれかの状態で存在する。
- InlineShape: テキストの一部として扱われる画像。段落の中に文字のように挿入されている。
- Shape: テキストから独立し、レイヤー上に配置される画像。テキストの背後や前面に配置でき、自由な座標指定が可能。
これらは親オブジェクトも管理体系も異なる。「全画像を抽出・リサイズしたい」という要件に対し、一方だけを処理して満足するコードは、プロの現場では「バグの温床」とみなされる。
2. 堅牢な設計へのアプローチ：全探索の極意
VBAで文書内の全オブジェクトを舐める際、最もやってはいけないのが「インデックスでのループ」だ。画像が削除されるたびにインデックスがずれ、ランタイムエラーを引き起こす。
必ず「For Each ループ」を使用すること。これがオブジェクトのライフサイクルを安全に管理する唯一の道だ。
実務で使えるプロダクションコード
以下のコードは、文書内の全画像を走査し、サイズを指定値に強制統一する安全なテンプレートだ。
Option Explicit
‘ ———————————————————
‘ 文書内の全画像を一括リサイズする堅牢なプロシージャ
‘ ———————————————————
Public Sub ResizeAllImages(targetWidthPoints As Single)
Dim ilShape As InlineShape
Dim shp As Shape
‘ 1. InlineShapeの処理
‘ 文書内のすべての埋め込み画像を走査
For Each ilShape In ActiveDocument.InlineShapes
If ilShape.Type = wdInlineShapePicture Then
With ilShape
.LockAspectRatio = msoTrue ‘ 比率固定は絶対条件
.Width = targetWidthPoints ‘ 幅を統一
End With
End If
Next ilShape
‘ 2. Shapeの処理
‘ テキストレイヤー上の画像を走査
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
With shp
.LockAspectRatio = msoTrue
.Width = targetWidthPoints
End With
End If
Next shp
MsgBox “全画像のリサイズが完了しました。”, vbInformation
End Sub
—
3. 開発現場での落とし穴と注意点
A. 「グループ化」の罠
`Shape`の中に`Shape`が含まれる「グループ化」されたオブジェクトがある場合、上記のループでは階層の奥底まで到達できない。もし複雑な文書を扱うなら、再帰処理（Recursive Function）による探索が必要だ。まずは「グループ解除」を前処理に入れる運用フローを検討すべきである。
B. パフォーマンスとファイルI/O
大量の画像を処理する場合、画面の再描画を止めることが鉄則だ。`Application.ScreenUpdating = False` をコードの冒頭に置くだけで、実行速度は劇的に向上する。
C. データベース連携時のヒント
抽出した画像のパスやメタ情報をデータベースへ送る場合、VBA単体で完結させようとせず、「一旦、画像ファイルをローカルの一時フォルダにエクスポートし、そのパスをDBに格納する」という設計が最も堅牢だ。Word内のバイナリデータをそのままDBに突っ込むのは、パフォーマンスとメンテナンス性の観点から「最悪の手法」であると心に刻んでほしい。
—
4. プロの視点：なぜ「自動化」は失敗するのか
多くの担当者は「コードを動かすこと」をゴールにする。しかし、真の自動化エンジニアは「文書の崩れ（レイアウト破壊）」をいかに回避するかをゴールにする。
- 画像サイズを強制変更した際、ページの改行位置はどう動くか？
- 図表番号（キャプション）との位置関係は維持されているか？
これらを考慮せず、ただサイズを変えるだけのコードは、数日後に必ずユーザーから「レイアウトが崩れた」というクレームを生む。「処理前後のレイアウト保護（セクションや段落の保持）」を考慮できる者こそが、伝説的な自動化エンジニアへの道を歩んでいると言える。
今回の知見を武器に、単なる「スクリプト屋」ではなく、文書の整合性を設計できる「アーキテクト」としての仕事を完遂してほしい。それができれば、あなたの作るツールは、現場で最も信頼される資産となるはずだ。
