本示例将加载的演示文稿保存为 c:\TestFile.dps。

MyPath = "c:\TestFile.dps"
Application.ActivePresentation.SaveAs MyPath