☰

Como copiar layouts da visualização mestre para slides no PowerPoint?

tag-icon • tag-icon microsoft-powerpoint master
Como copiar layouts da visualização mestre para slides no PowerPoint?

Um usuário com quem trabalho acidentalmente fez toda a apresentação no modo de exibição mestre de slides. Ou seja, em vez de adicionar slides, criaram layouts.

Existe uma solução parcial simples, que consiste apenas em adicionar novos slides usando cada um dos layouts. Isso resulta em uma apresentação que pode ser exibida corretamente, mas tem certas limitações. Especificamente, colaboramos muito aqui e, ao compartilhar este arquivo com outros usuários, ninguém mais poderá editar o texto nos slides sem entrar na visualização mestre.

A coisa toda poderia ser reconstruída do zero, mas é muito grande, então isso consumiria muito tempo.

Responder1

Uma abordagem (possivelmente falha):

Vá para cada layout na visualização mestre
Pressione Ctrl+A para selecionar tudo
Pressione Ctrl+C para copiar
Volte para a visualização Normal
Adicione um novo slide com base no layout EM BRANCO
Pressione Ctrl+V para colar o conteúdo que você acabou de copiar do layout
Quando terminar com todos os layouts, volte para a visualização mestre, selecione e exclua o conteúdo de cada layout.

A falha? Isso lhe dará vários slides que não estão mais conectados a layouts que controlarão a aparência da apresentação. Para fazer alterações abrangentes, você precisará alterar cada slide. Mas é uma solução relativamente rápida e pelo menos deixará você com slides editáveis.

Se a apresentação for usada mais do que apenas algumas ocasiões e editada por diversas pessoas, uma correção mais completa pode ser mais apropriada, embora seja muito mais demorada.

Isso envolveria fazer o que foi dito acima, depois percorrer os layouts e excluir qualquer conteúdo que não seja a) um espaço reservado ou b) desejado em todos os slides com base no layout.

Em seguida, você precisará aplicar o layout apropriado a cada slide originalmente baseado nele e, finalmente, se necessário, copiar o texto de caixas de texto aleatórias nos espaços reservados apropriados.

Se você decidir seguir esse caminho, aqui está uma macro que excluirá todas as formas que não sejam de espaço reservado de cada mestre/layout na apresentação. Ele não fará todo o trabalho para você, mas pelo menos automatizará uma parte um tanto tediosa:

Sub DeleteNonPlaceholderShapes()
' Deletes non-placeholder shapes from
' each slide master and layout in a presentation
' Run this on a COPY of your presentation, never the only original.

Dim oDes As Design
Dim oLay As CustomLayout
Dim oSh As Shape

With ActivePresentation
    For Each oDes In .Designs
        Call HandleOneContainerObject(oDes.SlideMaster)
        For Each oLay In oDes.SlideMaster.CustomLayouts
            Call HandleOneContainerObject(oLay)
        Next
    Next

End With

End Sub

Sub HandleOneContainerObject(oObject As Object)

Dim x As Long

For x = oObject.Shapes.Count To 1 Step -1
    If Not oObject.Shapes(x).Type = 14 Then
        oObject.Shapes(x).Delete
    End If
Next

End Sub

informação relacionada