Re-aplique um layout de slide aos slides existentes

Question

Eu tenho uma apresentação do PowerPoint onde os slides com numeração ímpar têm layout mestre A, e os slides pares com layout mestre B (com algumas exceções que posso classificar manualmente). Quando atualizo um dos layouts (por exemplo, adicionando ou movendo espaços reservados), eu tenho que selecionar manualmente todos os outros slides para reaplicar o layout a eles. Como posso aplicar automaticamente o layout a esses slides?

Se não houver recurso embutido para fazer isso (ou mesmo se houver!), uma macro seria útil.

    

Answer 1

Para reaplicar o layout atual do slide a um slide, clique com o botão direito do mouse no slide e selecione "Redefinir slide" no menu de contexto. Você pode selecionar intervalos de slides, ou até mesmo toda a apresentação, no painel esquerdo. Isso reaplicará o layout de todos os slides, não apenas dos especificados, mas cada slide manterá o layout existente.

    

Answer 2

Como normalmente não há 32 layouts em um design de apresentação, suponho que você tenha um layout personalizado. Em qualquer caso, tente isso, substituindo o número correto por 2 abaixo:

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