Skip to content

Instantly share code, notes, and snippets.

@martinctc

martinctc/SlideMasterCleanup.vbs

Last active June 29, 2020 08:26
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save martinctc/c98545df02aa807424134e6e7f0cd7b1 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save martinctc/c98545df02aa807424134e6e7f0cd7b1 to your computer and use it in GitHub Desktop.
Download ZIP
[PowerPoint Slide Master Clean Up] #PowerPoint
Raw
SlideMasterCleanup.vbs
Sub SlideMasterCleanup()
Dim i As Integer
Dim j As Integer
Dim oPres As Presentation
Set oPres = ActivePresentation
On Error Resume Next
With oPres
For i = 1 To .Designs.Count
For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
.Designs(i).SlideMaster.CustomLayouts(j).Delete
Next
Next i
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment