Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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