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