本示例将加载的演示文稿保存为 c:\TestFile.dps。
MyPath = "c:\TestFile.dps"
Application.ActivePresentation.SaveAs MyPath