Como copiar layouts fora do modo de exibição mestre em slides no PowerPoint?

Question

Um usuário com quem trabalho acidentalmente fez toda a sua apresentação na visualização do slide mestre. Ou seja, em vez de adicionar slides, eles criaram layouts.

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

A coisa toda pode ser reconstruída a partir do zero, mas é muito grande, por isso seria muito demorado.

    

Answer 1

Uma abordagem (possivelmente falha):

Ir para cada layout na exibição principal
Pressione Ctrl + A para selecionar todos os produtos Pressione Ctrl + C para copiar Voltar para a exibição Normal
Adicionar um novo slide baseado no layout BLANK Pressione Ctrl + V para colar o conteúdo que você acabou de copiar do layout. Uma vez feito 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 qualquer alteração abrangente, você precisaria alterar cada slide. Mas é uma solução relativamente rápida e, pelo menos, deixa você com slides editáveis.

Se a apresentação for usada em mais do que poucas ocasiões e editada por várias pessoas, uma correção mais completa pode ser mais apropriada, mesmo que seja muito mais demorada.

Isso envolveria fazer o acima, passando pelos layouts e excluindo 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, por fim, se necessário, copiar o texto das caixas de texto aleatórias para os espaços reservados apropriados.

Se você decidir seguir esse caminho, aqui está uma macro que excluirá todas as formas que não sejam marcadores de espaço de cada mestre / layout da apresentação. Ele não fará todo o trabalho para você de qualquer maneira, mas ao menos automatizará uma parte 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