返回一个 Presentation 对象，该对象代表在活动窗口中打开的演示文稿。只读。
注意，如果嵌入的演示文稿处于活动状态，则 ActivePresentation 属性将返回嵌入的演示文稿。
本示例将加载的演示文稿保存为应用程序文件夹中的文件“TestFile”。
MyPath = Application.Path & "\TestFile" Application.ActivePresentation.SaveAs MyPath