ActivePresentation Property

Returns a Presentation object that represents the presentation open in the active window. Read-only.

Note that if an embedded presentation is in-place active, the ActivePresentation property returns the embedded presentation.

Example

This example saves the loaded presentation to the application folder in a file named "TestFile."

MyPath = Application.Path & "\TestFile"
Application.ActivePresentation.SaveAs MyPath