TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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