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

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

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

18
задан Scott
01.12.2022 4:45 Количество просмотров материала 2923
Распечатать страницу

2 ответа

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

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
15
отвечен Moogle 2022-12-02 12:33

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

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

11
отвечен hazelmoon 2022-12-02 14:50

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх