TPE
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