【入門編】【中級者向け】段落の「行間」を、挿入された画像サイズに合わせて自動的に拡張するマクロ – Word VBA解析バイブル

Word VBA

2026.09.14

こんにちは。自動化の深淵へようこそ。

Wordで文書を作成していると、画像（インライン図形）を挿入した瞬間に、行間が極端に広がったり、逆に画像の一部が隠れてしまったりする現象に遭遇したことはありませんか？

これは、Wordがデフォルトで採用している「行間：1行」という設定が、画像の高さに対して柔軟に対応できていないために起こる「レイアウトの衝突」です。

今日は、「画像が含まれる段落を自動検知し、行間設定を最適化する」という、プロの現場でも即戦力となるテクニックを伝授します。マクロの記録から一歩先へ進み、Wordの心臓部（オブジェクトモデル）を制御する感覚を掴みましょう。

—

Wordの段落には`LineSpacingRule`（行間の種類）という設定があります。「1行」に設定されていると、Wordは文字サイズを基準に行を計算します。そこに背の高い画像が飛び込むと、Wordは無理やり行を広げて調整しようとし、結果として文書全体がバラバラになります。

これを解決するには、画像がある段落だけ「行間：固定値」に切り替え、画像の高さに合わせて数値をセットするという動的なハンドリングが必要です。

—

以下のコードは、文書内の全段落をスキャンし、画像が存在する場合にのみ、行間を「固定値」へ強制変換するものです。

Sub AutoAdjustLineSpacingForImages()
Dim para As Paragraph
Dim shp As InlineShape
Dim targetHeight As Single

‘ 画面の更新を停止して処理速度を向上させる（プロの基本）
Application.ScreenUpdating = False

‘ 文書内の全段落をループ処理
For Each para In ActiveDocument.Paragraphs
‘ 段落内にインライン画像があるか確認
If para.Range.InlineShapes.Count > 0 Then

‘ 段落内の最初の画像の高さを取得（ポイント単位）
targetHeight = para.Range.InlineShapes(1).Height

‘ 行間設定を「固定値」に変更
With para.Format
.LineSpacingRule = wdLineSpaceExactly

‘ 画像の高さに少し余裕（+5ポイント程度）を持たせて設定
.LineSpacing = targetHeight + 5
End With

Debug.Print “段落 ” & para.ParaID & ” の行間を ” & targetHeight + 5 & “pt に設定しました。”
End If
Next para

Application.ScreenUpdating = True
MsgBox “全段落の行間最適化が完了しました！”, vbInformation
End Sub

—

1. `Application.ScreenUpdating = False`

2. `InlineShapes` オブジェクト

Wordにおいて、文字列と同じ行に配置された画像は「インライン図形」です。`Paragraph.Range` を調べることで、その段落に属する画像のみをピンポイントで捕捉できます。

3. `wdLineSpaceExactly`（固定値）

—

「画像が重なりすぎて読めない」場合
`targetHeight` だけだと、画像と文字がピッタリくっつきすぎて美しくありません。コード内の `+ 5` のように、少しだけ余白（パディング）を持たせるのが、レイアウトを美しく見せるコツです。
「グループ化」された画像への対応
`InlineShapes` は単純な画像には強いですが、図形とテキストボックスがグループ化されたものなどには注意が必要です。まずはシンプルに画像から始め、必要に応じて `Shape` オブジェクト（フローティング図形）の制御へ拡張していきましょう。

—

このコードをただコピペするだけでなく、次は「特定のスタイルが適用されている段落だけを対象にする」といった条件を追加してみてください。

`If para.Style = “図の挿入用スタイル” Then …`

このように条件を加えるだけで、あなたの業務専用の強力なツールへと進化します。Word VBAは「文書の構造を理解する」ことができれば、どんな複雑なレイアウト崩れも制御下に置くことができます。

ここをクリアしたあなたは、もう初心者ではありません。さあ、次はどんな自動化に挑みますか？応援しています。