【PowerPoint】表の列幅・行の高さを均等にそろえる方法｜VBA・結合セル対応

PowerPoint で表の列幅や行の高さが不揃いだと、見た目が悪く資料の品質が下がります。本記事では、1 クリックで均等化する UI 操作と複数表を一気に整える VBA、結合セル対応マクロを実機検証つきで解説します。

「Word は 2 列だけ選択して均等化できるのに PowerPoint はできない」と誤解されがちですが、実際にはどちらも複数セル選択で部分的に均等化できます。ただし均等化の単位は異なり、PowerPoint は選択列の全行が、Word は選択セルだけが平均化されます。

配布のマクロ有効ファイル（pptm）で実際の動作を確認しながら学べる構成です。実機検証範囲は Windows 11 Pro 25H2 と PowerPoint 2024 build 19929 です（日本語 UI、標準表、Windows 版のみ）。

表のセル幅を均等にする操作手順（最短解）

もっとも速いのは、表内のセルを 1 か所クリックしてからリボンに現れる「テーブル レイアウト」タブを使う方法です。表を選択した状態でないと、このタブは現れません。

「テーブル レイアウト」タブを開くと、中央に「セル サイズ」グループがあります。ここに「幅を揃える」「高さを揃える」のボタンが並んでいて、クリック 1 回で選択した表の全列幅または全行高が均等化されます。Microsoft Support の日本語ヘルプも同じタブ・グループ名で操作を案内しています。

列幅が [80, 440, 120, 160] のように不揃いだった 4 列の表を例に挙げます。「幅を揃える」を 1 回押すと全列が同じ幅 [200, 200, 200, 200] に並び直ります。行の高さは同じ場所の「高さを揃える」で全行が同じ値になります。

「選択した列だけ均等化」する正しい方法（複数セル選択と VBA の制限）

「特定の列だけ均等化したい」場合は、表内の複数セルをマウスでドラッグ選択するか、Shift+矢印キーで選択範囲を広げてから「幅を揃える」を押します。表内のどこか 1 セルだけクリックした状態で実行すると、選択範囲は単一セルとして扱われ全列が均等化されます。

一方、複数セルを選択した状態で「幅を揃える」を実行すると、選択範囲に含まれる列のみが均等化され、それ以外の列は元の幅を保ちます。次の例は同じ初期幅 [80, 440, 120, 160] の表で、列 2 と列 3 にまたがる 2 セルを Shift+Right で選択してから「幅を揃える」を押した結果です。

初期列幅 [40, 220, 120, 220] の 4 列表で、選択開始セルと Shift+Right の回数を変えて 6 ケース検証した結果は次のとおりです。

VBA から同じ操作を自動化したい場合は注意点があります。PowerPoint VBA の Cell.Select() メソッドは単一セル選択しかできないため、コードから複数セル選択を直接再現できません。複数列のみを均等化したい場合は、後述の Table.Columns(i).Width = avg を対象列だけループする書き方で代替します。SendInput で Shift+Right を送る方法も検証では成功しましたが、ウィンドウのフォーカス状態に依存するため業務マクロでは推奨しません。

VBA でループ均等化する（基本マクロ）

表をクリックして「幅を揃える」ボタンを押す操作と同じ結果を、VBA でも数行で書けます。Table.Columns(i).Width を全列の平均値で書き換えるループ均等化マクロです。

' === Module1_Basic: 表 1 つを均等化する基本マクロ ===
Public Sub EqualizeTableColumns(ByVal tbl As Table)
    Dim totalW As Single, eachW As Single, i As Long, n As Long
    n = tbl.Columns.Count
    totalW = 0
    For i = 1 To n
        totalW = totalW + tbl.Columns(i).Width
    Next i
    eachW = totalW / n
    For i = 1 To n
        tbl.Columns(i).Width = eachW
    Next i
End Sub

Public Sub EqualizeTableRows(ByVal tbl As Table)
    Dim totalH As Single, eachH As Single, j As Long, m As Long
    m = tbl.Rows.Count
    totalH = 0
    For j = 1 To m
        totalH = totalH + tbl.Rows(j).Height
    Next j
    eachH = totalH / m
    For j = 1 To m
        tbl.Rows(j).Height = eachH
    Next j
End Sub

Public Sub EqualizeSelectedTable()
    Dim shp As Shape
    On Error Resume Next
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    On Error GoTo 0
    If shp Is Nothing Then
        MsgBox "表を含む図形が選択されていません。表の枠線をクリックしてから実行してください。", vbExclamation
        Exit Sub
    End If
    If shp.HasTable <> msoTrue Then
        MsgBox "選択中の図形は表ではありません。", vbExclamation
        Exit Sub
    End If
    EqualizeTableColumns shp.Table
    EqualizeTableRows shp.Table
End Sub

Alt + F11 で VBE（Visual Basic Editor）を開き、「挿入」→「標準モジュール」で新しいモジュールを追加し、上のコードを貼り付けます。PowerPoint に戻って表を選択し「表示」タブ→「マクロ」→EqualizeSelectedTable を実行すれば、選択中の表の列幅・行高がそろいます。

プレゼン内のすべての表を一括処理したい場合は、Module1 を呼び出す上位マクロを Module2 として用意します。配布マクロ有効ファイルの Module2_BatchAll には全表の「列と行」一括均等化、列のみ均等化、行のみ均等化の 3 種類を収録しています。用途に応じて使い分けてください。

結合セルがある表で VBA 均等化する

結合セルが混在している表でも、Module1 の EqualizeTableColumns はそのまま実行できます。Columns(i).Width への代入は結合（merge）を壊さず、結合セルの幅は「均等化後の列幅 × 結合した列数」になります。次の例は、1 行目 1〜2 列と 1 行目 3〜4 列にそれぞれ横結合がある 4 列 4 行表で、Module1 で全列均等化したものです。

このように Module1 をそのまま使う「結合保持版」が最も簡単です。一方、「結合セルがある表は触りたくない、見つけたらスキップしたい」という慎重派ユーザー向けには、結合を検出して該当表だけ均等化対象から除外する「除外版」も用意できます。

ここで問題になるのが、PowerPoint VBA の Cell オブジェクトには結合判定プロパティが存在しないことです。Microsoft Learn の公式仕様でも Cell のメンバは Application / Borders / Parent / Selected / Shape の 5 つのみです。Word VBA のような HorizontalMerge / VerticalMerge プロパティはありません。代わりに、結合されたセルでは Cell.Shape.Width が「結合した列数 × 単列の幅」になる挙動を使って幾何的に判定します。

' === Module3_MergeHelpers: 結合セル検出ヘルパー ===
Public Function IsCellHorizontallyMerged(ByVal cellRef As Cell, ByVal colWidth As Single) As Boolean
    IsCellHorizontallyMerged = (cellRef.Shape.Width > colWidth + 0.5)
End Function

Public Function IsCellVerticallyMerged(ByVal cellRef As Cell, ByVal rowHeight As Single) As Boolean
    IsCellVerticallyMerged = (cellRef.Shape.Height > rowHeight + 0.5)
End Function

' === Module4_SafeForMerges: 結合セル「除外版」===
' Module1 と Module3 の関数を呼び出します
Public Sub EqualizeTablesSkippingMerged()
    Dim sld As Slide, shp As Shape, tbl As Table
    Dim hasMergedCell As Boolean, r As Long, c As Long
    Dim equalizedCount As Long, skippedCount As Long
    equalizedCount = 0 : skippedCount = 0
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTable = msoTrue Then
                Set tbl = shp.Table
                hasMergedCell = False
                For r = 1 To tbl.Rows.Count
                    For c = 1 To tbl.Columns.Count
                        If IsCellHorizontallyMerged(tbl.Cell(r, c), tbl.Columns(c).Width) Then
                            hasMergedCell = True
                            Exit For
                        End If
                        If IsCellVerticallyMerged(tbl.Cell(r, c), tbl.Rows(r).Height) Then
                            hasMergedCell = True
                            Exit For
                        End If
                    Next c
                    If hasMergedCell Then Exit For
                Next r
                If hasMergedCell Then
                    skippedCount = skippedCount + 1
                Else
                    EqualizeTableColumns tbl
                    EqualizeTableRows tbl
                    equalizedCount = equalizedCount + 1
                End If
            End If
        Next shp
    Next sld
    MsgBox "均等化: " & equalizedCount & " 個 / 結合セル含み skip: " & skippedCount & " 個", vbInformation
End Sub

Module4 は Module1（列幅と行高の均等化）と Module3（結合セル検出）の両方を呼び出します。配布マクロ有効ファイルから取り込むときは Module1 → Module3 → Module4 の順でセットにしてください。

行の高さを小さくしたのに変わらない理由（フォントサイズ依存の下限）

Rows(j).Height = 10 のように行の高さを小さく指定しても、実際の行は変わらないことがあります。これは PowerPoint の「最小行高」仕様で、下限値はセル内のフォントサイズに依存します。エラーや警告は出ないまま、指定値が下限値まで silent に引き上げられる挙動です。

本記事の実機検証（既定フォント游ゴシック相当、6 サイズ × 8 段階の指定値で測定）では、次のように下限値が変化しました。

「下限値 ÷ フォントサイズ」は単純な定数にはならず、10pt では 1.92、18pt では 1.60、32pt では 1.425 と縮まっていきます。下限値はフォント本体の高さに上下マージンと leading（行送り）が加わった合算と整合しますが、PowerPoint 側は内訳を公開していないため、フォントサイズごとに比率を実測するしかありません。「行高の下限は 28.8pt」と書かれた解説を見かけますが、それは既定フォントサイズ 18pt のセルでの実測値で、文字サイズを変えれば下限も変わります。

行高をどうしても小さくしたい場合は、セル内のテキストフォントをまず小さくする必要があります。テキストが空のセルでも、セル属性に保持されているフォントサイズで下限が決まるため、見た目には文字がなくても下限値は同じです。

Excel・Word の表との違い

同じ「均等化」操作でも Office 3 アプリで挙動が違います。PowerPoint と Word は内部的に同じ TableColumnsDistribute というコマンドを使いますが、VBA API の差と「均等化」の単位の違いで、書き方や読み取り方が変わります。Excel には PowerPoint / Word と同じ「表の列を均等化」ボタンはありません。列幅は AutoFit、数値指定、列幅コピーなどで調整します。

PowerPoint と Word の決定的な差は、複数セル選択時の「均等化の単位」です。同じ TableColumnsDistribute でも、PowerPoint は 列全体（column-level）を均等化するのに対し、Word は 選択されたセルだけ（cell-level）を均等化します。Word では同じ列でも行ごとに違う幅になりうる、ということです。

具体的にはこうです。初期セル幅が [48.3 / 198.6 / 72.7 / 80] の 4 列 3 行 Word 表で、1 行目の 2 列目と 3 列目の 2 セルを選択して「幅を揃える」を実行します。すると 1 行目は [48.3 / 135.65 / 135.65 / 80] に変化しますが、2 行目と 3 行目は初期セル幅のまま変わりません。PowerPoint で同じ操作をすると全行で列 2 と列 3 が平均化されるので、Word 利用者が PowerPoint に来ると違和感を感じることがあります。

Word の挙動差はもう 1 つあります。TableColumnsDistribute を部分適用後に tbl.Columns(i).Width を読むと、「列幅がすべて同一ではないためアクセスできない」という COM エラーが出ます。Word VBA で列幅を読むときは tbl.Cell(r, c).Width を行ごとに取得するのが安全です。PowerPoint では列単位で常に同じ値なので tbl.Columns(i).Width をそのまま使えます。

うまくいかないときの確認ポイント

「幅を揃える」「高さを揃える」がうまく動かないときに、まず確認したい 3 パターンを整理します。

(a) 「テーブル レイアウト」タブが現れない

選択しているのが表ではなくテキストボックスや図形の可能性があります。VBA で確認するなら Shape.HasTable = msoTrue を返すかをチェックします。表の Shape.Type は 19（msoTable）です。Module1 の EqualizeSelectedTable でも、先に HasTable をチェックして「表ではない図形」をはじいています。

(b) 行の高さが指定値にならない

セル内フォントの下限値に当たっている可能性があります。前節の表で確認したとおり、フォント 18pt なら下限 28.8pt、24pt なら 36.0pt です。本当に小さい行が必要なら、まずセル内テキストのフォントサイズを 12pt や 10pt に下げてから行高を指定し直してください。

(c) VBA で ExecuteMso "TableColumnsDistribute" が空振りする

表の選択状態が間違っている可能性があります。Shape.Select または Cell(r, c).Select 後なら ExecuteMso が発火しますが、Columns(i).Select 後は GetEnabledMso=True でも実質空振りします。確実に列幅を書き換えるなら Table.Columns(i).Width = avg を直接代入する方法（Module1 のループ）が安定します。

まとめ

PowerPoint の表で列幅・行の高さを均等化するもっとも速い手順は、表をクリックして「テーブル レイアウト → セル サイズ → 幅を揃える / 高さを揃える」の 1 クリックです。複数列だけを均等化したい場合は、複数セルを選択してから同じボタンを押せば選択列のみが平均化されます。複数表を一括処理したい場合や結合セルを保持したまま処理したい場合や、結合セルを含む表を除外して処理したい場合は、配布のマクロ有効ファイルの Module1〜Module4 をそのままコピペで使えます。「行高が変わらない」のはバグではなくフォント依存の下限値が効いているため、フォントを小さくすれば下限も下がります。

関連記事

• 【PowerPoint VBA】全スライドのテキストをテキストファイルに一括抽出するマクロ（表・SmartArt 対応） — 表の中身を抽出して再利用したい場合に
• 【PowerPoint VBA】全スライドのフォントを一括置換するマクロ
• 【PowerPoint VBA】ノートペインの内容を一括削除するマクロ
• 【PowerPoint VBA】全スライドの指定位置にロゴ画像を一括配置するマクロ
• 【PowerPoint VBA】全スライドのアニメーションを一括削除するマクロ
• PowerPointの配置サブメニュー10項目の使い分け