Using a simplified version of code (w/o counters): Sub SlideMasterCleanup() To solve it you just need to count backwards also with the designs. The result is that when you execute the VBA, there are still master layouts left with unused layouts. The scripts take this effect into account for the children layouts but not the master ones.
The scripts above work but they do not eliminate all the unused master layouts, because either do not try (the first version) or because of the re-indexing that happens when you delete a master layout if it is not the last one -> Master Layout 4 is deleted and now former Master Layout 5 is Master Layout 4, which will not be deleted no matter what because the index will be on 5. Consequently, delete first the unused Layouts repeatedly as you can be sure to not delete the used ones, then delete those Masters which don't have any Layout left. This is an easy way to manually roll through the Layouts quickly without worrying about removing one that is in use.īe careful, in Powerpoint for Office 365 MSO (and maybe more versions), deleting a Master will delete also its Layouts even if some of them are used (while deleting directly a Layout is not allowed if it's used). If you select the first Layout, then keep hitting Delete repeatedly, only the slide Layouts that are not in use will be deleted. This is an easy way to manually roll through the templates quickly without worrying about removing one that is in use. If you highlight the first slide, then keep hitting Delete repeatedly, only the slide templates that are not in use will be deleted. Look especially for those with pictures and remove the ones not used. You can individually delete each slide Layout. When you mouse over each slide Layout, you can see if that slide Layout is used: In the menu View, click the button "Slide Master": Designs(i). = 0 Thenĭebug.Print "After: # of designs:", ĭebug.Print "After: # of layouts", iLayoutsīelow is basically the same answer as hazelmoon, but with screenshots and additional comments, especially a warning concerning the Master deletion which does not check if its Layouts are still used in the presentation. Designs(i).SlideMaster.CustomLayouts(j).Deleteĭebug.Print "Before: # of layouts", iLayouts
Sub SlideMasterCleanup()ĭebug.Print "Before: # of designs:", Updated VBA with procedure, plus print some statistics in the Immediate window of the VBA Editor (ALT + F11 or Developer > Visual Basic).
0 kommentar(er)
