Remova todos os slides mestres não utilizados em uma apresentação do PowerPoint

Minha empresa criou recentemente um novo modelo do PowerPoint. Por si só, sem slides, tem 9 MB de tamanho. Isso é completamente inutilizável para o envio a dispositivos móveis e irrita os clientes. O principal culpado são as imagens de alta resolução nos slides mestres. Na maioria das vezes eu não uso os 8 slides com imagens de alta resolução. Eu tentei compactar as imagens, mas isso só reduz o tamanho do modelo para 5 MB, ainda é muito grande.

Existe alguma maneira de salvar a apresentação e descartar automaticamente os slides mestre gigantes não utilizados. Obviamente, posso entrar e excluir os slides mestres, mas fiquei pensando se há algo que permita que você faça isso automaticamente.

Ver como "slides mestres". Quando você passa o mouse sobre cada slide mestre, pode ver se esse slide mestre é usado. Você pode excluir individualmente cada slide mestre. Parece especialmente para aqueles com fotos e remova os que não são usados.

Se você destacar o primeiro slide, continue batendo Deleterepetidamente, apenas os modelos de slide que não estiverem em uso serão excluídos. Essa é uma maneira fácil de rolar manualmente pelos modelos rapidamente, sem se preocupar em remover um que esteja em uso.

Você pode fazer isso criando uma macro:

Sub SlideMasterCleanup()

Dim i As Integer
Dim j As Integer
Dim oPres As Presentation
Set oPres = ActivePresentation
On Error Resume Next
With oPres
    For i = 1 To .Designs.Count
        For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
            .Designs(i).SlideMaster.CustomLayouts(j).Delete
        Next
    Next i
End With

End Sub

A resposta acima votada acima ainda funciona e funcionou para mim. O problema era que, quando copiava o código, não sabia o que fazer com ele.

Depois de um pouco de pesquisa, descobri que é assim que se usa o código acima:

1. Abra seu documento PPT
2. Vá para Exibir, clique em macros
3. Escolha onde você deseja executar essa macro no menu suspenso
4. Dê um nome e crie-o.

Em seguida, aparece uma janela onde você pode colar o código.

Salve-o, volte para Exibir -> Macros e selecione a macro no menu suspenso.

Clique em "Executar" e CONCLUÍDO!