Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Working with the Active Presentation
'Check that a window is open before you access the ActivePresentation object. 
Sub count()
    If Windows.Count = 0 Then
        MsgBox "Please open a presentation before running this macro."
        End
    End If
End Sub