Повторно применить макет слайда к существующим слайдам

Question

Повторно применить макет слайда к существующим слайдам

У меня есть презентация PowerPoint, в которой слайды с нечетными номерами имеют мастер-макет A, а слайды с четными номерами имеют мастер-макет B (с некоторыми исключениями, которые я могу отсортировать вручную). Когда я обновляю один из макетов (например, добавляя или перемещая заполнители), мне приходится вручную выбирать каждый второй слайд, чтобы повторно применить макет к ним. Как я могу автоматически повторно применить макет к этим слайдам?

Если для этого нет встроенной функции (или даже если она есть!), Макрос был бы столь же полезен.

0

microsoft-office microsoft-powerpoint microsoft-powerpoint-2013

Источник

wizzwizz4 23 авг '16 в 13:07

2 ответа

Решение

Поскольку в дизайне презентации обычно нет 32 макетов, я предполагаю, что у вас есть собственный макет. В любом случае попробуйте это, подставив правильное число для 2 ниже:

Sub ReapplyMaster()
    Dim slidenum As Long
    For slidenum = 3 To ActivePresentation.Slides.Count Step 2
        With ActivePresentation.Slides(slidenum)

            .CustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2)

        End With
    Next
End Sub

1

Источник

Steve Rindsberg 23 авг '16 в 19:13

Другие вопросы по тегам microsoft-office microsoft-powerpoint microsoft-powerpoint-2013

wizzwizz4 23 авг '16 в 19:17 2016-08-23 19:17 · Accepted Answer · 2016-08-23 19:17

Чтобы повторно применить текущий макет слайда к слайду, щелкните правой кнопкой мыши на слайде и выберите "Сбросить слайд" в контекстном меню. Вы можете выбрать диапазон слайдов или даже всю презентацию на левой панели. Это позволит повторно применить макет для всех слайдов, не только для определенных, но каждый слайд сохранит свой существующий макет.