web-dev-qa-db-fra.com

Supprimer toutes les diapositives maîtres inutilisées dans une présentation PowerPoint

Mon entreprise a récemment créé un nouveau modèle PowerPoint. À lui seul, sans diapositives, sa taille est de 9 Mo. Ceci est complètement inutilisable pour l'envoi sur des appareils mobiles et agace les clients. Le principal responsable est les images haute résolution sur les diapositives principales. La plupart du temps, je n'utilise pas les 8 diapositives avec les images haute résolution. J'ai essayé de compresser les images, mais cela ne donne que le modèle à 5 Mo vide, encore trop grand.

Est-il possible de sauvegarder la présentation et de supprimer automatiquement les diapositives maîtresses géantes non utilisées? Évidemment, je peux entrer et supprimer les diapositives principales, mais je me demandais si quelque chose vous permettait de le faire automatiquement.

microsoft-powerpoint
19
Scott

Vous pouvez le faire en créant une 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
19
Moogle

Afficher en tant que "masques de diapositives". Lorsque vous passez la souris sur chaque masque de diapositive, vous pouvez voir si ce masque est utilisé. Vous pouvez supprimer individuellement chaque masque de diapositives. Cherche surtout pour ceux avec des images et enlève ceux qui ne sont pas utilisés.

Si vous mettez en surbrillance la première diapositive, continuez à frapper Delete à plusieurs reprises, seuls les modèles de diapositives qui ne sont pas utilisés seront supprimés. C'est un moyen facile de parcourir manuellement les modèles rapidement sans vous soucier de supprimer ceux qui sont en cours d'utilisation.

15
hazelmoon