Удалить все неиспользуемые главные слайды в презентации PowerPoint

Question

Моя компания недавно создала новый шаблон PowerPoint. Сам по себе без слайдов, его размер составляет 9 МБ. Это совершенно непригодно для отправки на мобильные устройства и раздражает клиентов. Главный виновник - изображения с высоким разрешением на мастер слайдах. Большую часть времени я не использую 8 слайдов с изображениями высокого разрешения. Я пытался сжимать изображения, но это только приводит к пустому шаблону до 5 МБ, все еще слишком большому.

Есть ли в любом случае сохранить презентацию, автоматически отбрасывать неиспользованные гигантские мастер-слайды. Очевидно, я могу пойти и удалить мастер-слайды, но мне было интересно, есть ли что-нибудь, что позволяет автоматически делать это.

Answer 1

Вы можете сделать это, создав макрос:

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

Answer 2

Рассматривать как "слайд мастеров". При наведении указателя мыши на каждый мастер слайдов вы можете увидеть, используется ли этот мастер слайдов. Вы можете индивидуально удалить каждый мастер слайдов. Выглядит специально для тех, у кого есть картинки и уберите те, которые не используются.

Если вы выделите первый слайд, а затем продолжите нажимать кнопку Удалить , будут удалены только те шаблоны слайдов, которые не используются. Это простой способ быстро пролистать шаблоны, не беспокоясь об их удалении.