在 MS PowerPoint 中：是否有可能删除所有隐藏的幻灯片？

Question

我有一个包含多张隐藏幻灯片的 PowerPoint 演示文稿，我想知道是否有可能删除所有隐藏的幻灯片，而不必逐张删除。

Answer 1

Dim x as Long
For x = ActivePresentation.Slides.Count to 1 Step -1
    With ActivePresentation.Slides(x)
       If .SlideShowTransition.Hidden = True Then
          .Delete
       End If
    End with
Next