PowerPoint VBAで行間を自在に調整する方法

皆さん、PowerPointでプレゼン資料を作成していると、テキストの行間を微調整したいと感じたことはありませんか？しかし、毎回手動で設定するのは手間がかかります。そこで、今回はPowerPointのVBA（マクロ）を使って、行間を簡単に調整する方法をご紹介します。これをマスターすれば、資料作成の効率が格段にアップしますよ。

VBAを使って行間を調整するメリット
VBAマクロで行間を調整する方法
よくある質問や疑問
1. Q1. マクロを使うと他の部分に影響が出ることはありますか？
2. Q2. マクロを削除したい場合はどうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAを使って行間を調整するメリット

PowerPointのイメージ

PowerPointの標準機能でも行間の調整は可能ですが、VBAを使うことで以下のようなメリットがあります。

ここがポイント！

細かい単位での調整が可能標準機能では限られた設定しかできませんが、VBAを使えば1ポイント刻みなど細かい調整が可能です。
作業の効率化複数のスライドやテキストボックスに対して、一括で行間を設定できます。
再利用性一度マクロを作成すれば、他のプレゼン資料でも同じ設定を簡単に適用できます。

VBAマクロで行間を調整する方法

それでは、具体的にVBAマクロを使って行間を調整する方法を見ていきましょう。

1. 開発タブの表示

まず、PowerPointでVBAを使うために、「開発」タブを表示する必要があります。

PowerPointのメニューから「ファイル」をクリックします。
「オプション」を選択します。
「リボンのユーザー設定」をクリックし、右側の「開発」にチェックを入れて「OK」を押します。

これで「開発」タブが表示されます。

2. VBAエディターの起動

次に、VBAエディターを起動します。

「開発」タブをクリックします。
「Visual Basic」をクリックします。

これでVBAエディターが開きます。

3. マクロの作成

VBAエディターで新しいマクロを作成します。

メニューから「挿入」→「標準モジュール」を選択します。
表示されたコードウィンドウに、以下のコードを入力します。

vba

Sub 行間を広げる()

    Dim sa As Single

    With ActiveWindow.Selection

        If .Type = ppSelectionNone Or .Type = ppSelectionSlides Then

            MsgBox "シェイプまたはテキスト範囲を選択してください。"

            Exit Sub

        End If

        .ShapeRange.TextFrame.AutoSize = ppAutoSizeShapeToFitText

        With .TextRange.ParagraphFormat

            sa = .SpaceAfter

            .LineRuleAfter = msoFalse

            .SpaceAfter = sa + 1

        End With

    End With

End Sub