Excelテキストボックスの行間を調整する方法｜広すぎる・狭い行間の設定と余白の完全ガイド

Excelのテキストボックスで文字を入力したとき、行間が広すぎて見栄えが悪いと感じたことはありませんか？

テキストボックスの行間は「段落」設定で細かく調整できます。しかし、この設定がどこにあるか分かりにくく、多くのユーザーが困っています。

本記事では、テキストボックスの行間を詰める・広げる方法、余白の調整、セル内の行間変更まで完全解説します。

テキストボックスの行間を調整する3つの方法

方法1: 右クリックメニューから「段落」を開く（最も簡単）

1. テキストボックス内のテキストを選択（Ctrl+A で全選択）
2. 選択した文字を右クリック
3. 「段落」をクリック
4. 「間隔」セクションの「行間」を変更
5. OK

方法2: 「ホーム」タブから「段落」ダイアログを開く

1. テキストボックス内のテキストを選択
2. 「ホーム」タブ →「段落」グループの右下矢印をクリック
3. 「行間」を変更

方法3: 「ホーム」タブの行間ボタンを使う

1. テキストボックス内のテキストを選択
2. 「ホーム」タブ →「段落」グループの「行と段落の間隔」ボタン（横線アイコン）
3. プリセット（1.0, 1.15, 1.5, 2.0, 2.5, 3.0）から選択

行間の種類と設定値の使い分け

行間オプション一覧

行間を狭くしたい場合の設定

行間を詰めるには「固定値」か「倍数」を使います。

固定値の場合:

• フォントサイズ11ptなら → 固定値13pt程度（フォントサイズ + 2pt）
• フォントサイズ14ptなら → 固定値16pt程度

倍数の場合:

• 「倍数」→ 0.8〜0.9を指定すると行間が狭くなる
• 1.0が標準、0.8でやや詰まり、0.5で最小限

段落前後の間隔を調整する

行間とは別に、段落前後の間隔も調整できます。

1. テキストを選択 → 右クリック →「段落」
2. 「間隔」セクションの「段落前」「段落後」を設定
3. 0ptにすると段落間の余白がなくなる

テキストボックスの余白（内部マージン）を調整する方法

テキストボックスの上下左右の余白を変更する

1. テキストボックスの枠線を右クリック（テキスト部分ではなく枠線）
2. 「図形の書式設定」を選択
3. 「テキストボックス」（文字のアイコン）タブを開く
4. 「内部の余白」で上下左右のマージンを変更

「テキストに合わせて図形のサイズを変更する」

「図形の書式設定」→「テキストボックス」タブで「テキストに合わせて図形のサイズを変更する」にチェックを入れると、テキスト量に応じてテキストボックスが自動的にリサイズされます。

セル内の行間を変更する方法（テキストボックス不要）

セル内で改行して行間を調整する

セル内で Alt+Enter で改行した場合の行間は、直接変更できません。ただし、以下の方法で間接的に調整できます。

方法1: 行の高さを手動で調整する

1. 行番号の境界をドラッグして行の高さを変更
2. セルの垂直方向の配置を「中央揃え」に設定

方法2: フォントサイズで調整する

空行（Alt+Enterのみの行）のフォントサイズを小さくすると、その行の高さだけ狭くなり、疑似的な行間調整が可能です。

1. セル内の空行を選択
2. フォントサイズを1〜4pt程度に変更
3. 見た目の行間が狭くなる

方法3: 上付き/下付き文字で微調整する

セルの「セルの書式設定」→「フォント」→「上付き」「下付き」で文字の位置を微調整できます。

VBAで複数テキストボックスの行間を一括変更する方法

全テキストボックスの行間を一括設定するマクロ

Sub SetLineSpacingAll()
    Dim shp As Shape
    Dim ws As Worksheet
    Set ws = ActiveSheet

    For Each shp In ws.Shapes
        If shp.HasTextFrame Then
            With shp.TextFrame2.TextRange.ParagraphFormat
                .SpaceWithin = 0.8  '行間を0.8倍に設定
                .SpaceBefore = 0    '段落前の間隔を0に
                .SpaceAfter = 0     '段落後の間隔を0に
            End With
        End If
    Next shp

    MsgBox "全テキストボックスの行間を変更しました"
End Sub

選択したテキストボックスのみ変更するマクロ

Sub SetLineSpacingSelected()
    Dim shp As Shape

    If TypeName(Selection) = "DrawingObjects" Then
        For Each shp In Selection.ShapeRange
            If shp.HasTextFrame Then
                With shp.TextFrame2.TextRange.ParagraphFormat
                    .SpaceWithin = 0.8
                    .SpaceBefore = 0
                    .SpaceAfter = 0
                End With
            End If
        Next shp
        MsgBox "選択したテキストボックスの行間を変更しました"
    Else
        MsgBox "テキストボックスを選択してください"
    End If
End Sub

しんたろ。

Excel歴10年以上 → アプリ開発者

Profile

大手メーカーに15年以上勤務。製造部門で海外拠点の立ち上げ支援や、現場責任者として採算管理・納期管理・設備オペレートを経験。 2023年にDX人材育成プログラム第1期生として活動後、現在は製造現場のスケジュール運用を支えるアプリの企画・開発をメインに活動中。工程表示表作成の内製化SaaSを構築し、年間1,300万円のコスト改善を実現。 Excelによる業務改善で年間240時間の残業削減を達成した経験を活かし、ブログやSNSでも情報発信しています。

プロフィールを読む

XYouTubeLINEContact

行間がずれる・おかしくなる原因と対処法

フォントの種類によって行間が変わる

• 原因: 日本語フォントと英語フォントで行間計算が異なる
• 対処: テキストボックス内のフォントを統一する（游ゴシック、メイリオ等）

一部の行だけ行間が広い

• 原因: その行だけ異なるフォントサイズやフォントが混在している
• 対処: テキスト全体を選択（Ctrl+A）→ フォントとサイズを統一

コピー元の書式が反映されてしまう

• 原因: 他のソフト（Word、Web等）からコピーした際に書式が引き継がれる
• 対処: 「貼り付けオプション」→「テキストのみ保持」で貼り付け

印刷時に行間が画面と異なる

• 原因: プリンタドライバの違いや拡大率の影響
• 対処: 「固定値」で行間を指定すると、印刷結果が安定する

行間調整マクロの動作をデモで確認

テキストボックスの行間を一括調整するマクロの効果を、下のインタラクティブデモで確認できます。

VBAマクロの実行結果は記事冒頭のインタラクティブデモで確認できます。ボタンを押すとアニメーションで動作をシミュレーションします。

まとめ

テキストボックスの行間は「段落」ダイアログから簡単に変更できます。行間を詰めたい場合は「固定値」または「倍数」を使い、余白が気になる場合は「図形の書式設定」の内部マージンも調整しましょう。

しんたろ。

Excel歴10年以上 → アプリ開発者

XYouTubeLINEContact

大手メーカーに15年以上勤務。製造部門で海外拠点の立ち上げ支援や、現場責任者として採算管理・納期管理・設備オペレートを経験。 2023年にDX人材育成プログラム第1期生として活動後、現在は製造現場のスケジュール運用を支えるアプリの企画・開発をメインに活動中。工程表示表作成の内製化SaaSを構築し、年間1,300万円のコスト改善を実現。 Excelによる業務改善で年間240時間の残業削減を達成した経験を活かし、ブログやSNSでも情報発信しています。