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

Question

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

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

Answer 1

Поскольку в дизайне презентации обычно нет 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

Answer 2

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