DocumentWindow.ActivePane (PowerPoint)

Returns a Pane object that represents the active pane in the document window.

Dim panActivePane As Pane
Set panActivePane = ActiveWindow.ActivePane