Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Closing a Window
Sub close()
    Do While ActivePresentation.Windows.Count > 1
        ActivePresentation.Windows(ActivePresentation.Windows.Count).Close
    Loop
End Sub