Eliminar todas las diapositivas maestras no utilizadas en una presentación de PowerPoint

Mi empresa creó recientemente una nueva plantilla de PowerPoint. Por sí solo sin diapositivas, tiene un tamaño de 9 MB. Esto es completamente inutilizable para enviar a dispositivos móviles y molesta a los clientes. El principal culpable son las imágenes de alta resolución en las diapositivas maestras. La mayoría de las veces no uso las 8 diapositivas con las imágenes de alta resolución. He intentado comprimir las imágenes, pero eso solo hace que la plantilla esté vacía a 5 MB, aún es demasiado grande.

¿Hay alguna forma de guardar la presentación? Descarte automáticamente las diapositivas maestras gigantes no utilizadas. Obviamente puedo entrar y eliminar las diapositivas maestras, pero me preguntaba si hay algo que le permita hacer esto automáticamente.

Ver como "maestros de diapositivas". Cuando pasa el mouse sobre cada patrón de diapositivas, puede ver si se usa ese patrón de diapositivas. Puede eliminar individualmente cada patrón de diapositiva. Se ve especialmente para aquellos con fotos y elimina los que no se usan.

Si resalta la primera diapositiva y luego sigue presionando Deleterepetidamente, solo se eliminarán las plantillas de diapositivas que no estén en uso. Esta es una manera fácil de desplazarse manualmente por las plantillas rápidamente sin preocuparse de eliminar una que esté en uso.

Puede hacer esto creando una 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

La respuesta votada arriba todavía funciona y funcionó para mí. El problema era que, cuando copie el código, no sabía qué hacer con él.

Después de un poco de investigación, descubrí que así es como se usa el código anterior:

1. Abre tu documento PPT
2. Vaya a Ver, haga clic en Macros
3. Elija dónde desea poder ejecutar esta macro en el menú desplegable
4. Dale un nombre y créalo.

Luego aparece una ventana donde puedes pegar el código.

Guárdelo, regrese a Ver -> Macros y seleccione la macro del menú desplegable.

Haga clic en "Ejecutar" y listo!