Breaking News: Grepper is joining You.com. Read the official announcement!

powerpoint vba: delete all unused slides in slide master

David Mithiga answered on October 6, 2023 Popularity 1/10 Helpfulness 1/10

answer powerpoint vba: delete all unused slides in slide master

powerpoint vba: delete all unused slides in slide master

Comment

Sub DeleteUnusedMasterLayouts()
    Dim oDesign As Design
    Dim oMaster As Master
    Dim oCustomLayout As CustomLayout
    Dim i As Long
    Dim isUsed As Boolean
    
    'Loop through each design in the presentation
    For Each oDesign In ActivePresentation.Designs
        Set oMaster = oDesign.SlideMaster
        
        'Loop backward through custom layouts to avoid indexing issues when deleting
        For i = oMaster.CustomLayouts.Count To 1 Step -1
            Set oCustomLayout = oMaster.CustomLayouts(i)
            isUsed = False
            
            'Check if the custom layout is used by any slide
            For Each oSlide In ActivePresentation.Slides
                If oSlide.Layout = oCustomLayout Then
                    isUsed = True
                    Exit For
                End If
            Next oSlide
            
            'Delete if not used
            If Not isUsed Then
                oCustomLayout.Delete
            End If
        Next i
    Next oDesign
End Sub

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: chat.openai.com

Tags: powerpoint slide whatever

Link to this answer
Share Copy Link

Contributed on Oct 06 2023

David Mithiga

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

powerpoint vba: delete all unused slides in slide master

Contents

More Related Answers

powerpoint vba: delete all unused slides in slide master

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.