ActivePresentation Property Example

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

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