Working with Guides in PPT 2013 and later

PowerPoint 2013 introduced the Guides collection and VBA methods for working with it.

Here are a couple examples of working with Guides:

The first example copies all of the guides from the presentation (ie, the ones you see and can move in normal view) to the slide master:

Sub MoveGuidesToMaster()
' Run this to copy all of the current presentation guides
' to the slide master

    Dim x As Long

    With ActivePresentation
        For x = 1 To .Guides.Count
            .SlideMaster.Guides.Add .Guides(x).Orientation, .Guides(x).Position
        Next
    End With

End Sub

The next example deletes all guides from the presentation (but not the master). You might want to use it after using the first example above so you don't have double guides, one set from the master, one set in the presentation.

Sub DeletePresentationGuides()
' Run this to delete the guides in the presentation
' (but not those on master)

    Dim x As Long

    With ActivePresentation
        For x = .Guides.Count To 1 Step -1
            .Guides(x).Delete
        Next
    End With

End Sub

See How do I use VBA code in PowerPoint? to learn how to use this example code.

Did this solve your problem? If so, please consider supporting the PPT FAQ with a small PayPal donation.