Advertisement
wagz

Cleanup slide masters macro

Oct 18th, 2022
1,202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
YAML 0.36 KB | None | 0 0
  1. Sub SlideMasterCleanup()
  2.  
  3. Dim i As Integer
  4. Dim j As Integer
  5. Dim oPres As Presentation
  6. Set oPres = ActivePresentation
  7. On Error Resume Next
  8. With oPres
  9.     For i = 1 To .Designs.Count
  10.         For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
  11.             .Designs(i).SlideMaster.CustomLayouts(j).Delete
  12.         Next
  13.     Next i
  14. End With
  15.  
  16. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement