一键选中所有的隐藏幻灯片

blackwolf88

想一键选中所有的隐藏幻灯片，然后删除，隐藏幻灯片多，也没有规律。
有这样的插件或vba吗？或者其他办法。谢谢!

lss001

Sub SelectOrDeletSlide()
    Dim mySlides As Slides
    Set mySlides = Application.ActivePresentation.Slides
    For i = mySlides.Count To 1 Step -1
        '判断隐藏的幻灯片
        If mySlides(i).SlideShowTransition.Hidden Then
            mySlides(i).Select '选择
            mySlides(i).Delete '删除
       End If
    Next
End Sub