Application.ActiveWindow (PowerPoint)

Returns a DocumentWindow object that represents the active document window.

Dim dwwActiveWindow As DocumentWindow
Set dwwActiveWindow = ActiveWindow