删除所有隐藏幻灯片的宏代码

Sub DelHiddenSlide()
Dim sld As Slide, shp As Shape, found As Boolean
    Do
        found = False
        For Each sld In ActivePresentation.Slides
            If sld.SlideShowTransition.Hidden = msoTrue Then
                    found = True
                    sld.Delete
        End If
        Next
    Loop While found = True
End Sub