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

Um usuário com quem trabalho acidentalmente fez toda a sua apresentação na visualização do slide mestre. Isto é, 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 do mestre.

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

Uma abordagem (possivelmente falha):

Ir para cada layout na visualização mestre
Pressione Ctrl + A para selecionar todos
Pressione Ctrl + C para copiar
Volte para a visualizaçã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 master view, selecione e apague 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 consuma muito mais tempo.

Isso envolveria fazer o acima, passando pelos layouts e excluindo qualquer conteúdo que não fosse a) um espaço reservado ou b) desejado em todos os slides com base no layout.

Em seguida, você precisaria aplicar o layout apropriado a cada slide originalmente baseado nele e, por fim, 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 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 dele:

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