PowerPoint使い方講座「最短で実務レベルを習得するコース」が【無料】公開中!詳細はこちら
スポンサーリンク
スポンサーリンク

PowerPoint VBA ガイドを追加しマージンを作るマクロ

PowerPointで指定値でガイドを追加してマージン(余白)を作成するマクロをご紹介します。フォームにマージンの値を入力するだけで、スライドサイズの内側に上下左右ガイドが自動で追加されます。

通常PowerPointでガイドを追加するには、右クリックメニューの「グリッドとガイド」から追加し、ドラッグしながら指定の場所へ移動させます。スライドの上下左右にガイドを追加するには、この動作を4回繰り返さなければなりません。

しかも、ガイドの移動時に表示される値がスライドサイズのセンターからの距離になっているため、非常に設定がしづらい仕様となっています。

Sub ガイドを追加しマージンを作成()

    Dim margin As String
    Dim msg As String
    Dim w As Double
    Dim h As Double
    Dim guideColor As Long
    
    'ガイドを全て削除
    Call ガイドを全て削除
    
    'マージン入力フォーム
    margin = InputBox("マージンを入力してください。" & vbCrLf & _
    "(単位: mm)")
    
    '数値以外が入力された場合はマクロ終了
    If IsNumeric(margin) Then
    ElseIf margin = "" Then
        Exit Sub
    Else
        msg = "値数値を入力してください。"
        MsgBox msg
        Exit Sub
    End If
    
    'マージンを「cm」に変換
    margin = Round(margin * 72 / 25.4, 0)
    
    'スライドサイズ取得
    w = ActivePresentation.PageSetup.SlideWidth
    h = ActivePresentation.PageSetup.SlideHeight
    
    'ガイドを表示
    Application.DisplayGuides = True
    
    'ガイドの色
    guideColor = VBA.RGB(164, 163, 164)
    
    'マージンの位置にガイドを追加
    With ActivePresentation.Guides
    
        '上ガイドを追加
        .Add(ppHorizontalGuide, margin).Color = guideColor
        
        '下ガイドを追加
        .Add(ppHorizontalGuide, h - margin).Color = guideColor
        
        '左ガイドを追加
        .Add(ppVerticalGuide, margin).Color = guideColor
        
        '右ガイドを追加
        .Add(ppVerticalGuide, w - margin).Color = guideColor
        
        'センターガイドを追加
        .Add(ppHorizontalGuide, h / 2).Color = guideColor
        .Add(ppVerticalGuide, w / 2).Color = guideColor
        
  End With
End Sub

Sub ガイドを全て削除()
    
    Dim i As Long
 
    With Application.ActivePresentation
  
        'ガイドの数だけ処理を繰り返す
        If .Guides.Count > 0 Then
            For i = .Guides.Count To 1 Step -1
            
            'ガイドを削除
            .Guides(i).Delete
        Next

        End If
    End With
End Sub

マージンを「cm」で入力したければ、「margin = Round(margin * 720 / 25.4, 0)」に変更してください。

最初に追加されているガイドを全て削除するため、センターガイドも新たに追加しています。ガイドを削除したくなければ、「Call ガイドを全て削除」を削除してください。

A4サイズのスライドにマージンを「15mm」で設定した実行結果です。

  • PowerPoint 2016 for Macでは動作しません。