您好我一直在研究这个并找到了一些东西，但要么我是白痴，要么我找到的所有东西都遗漏了一些细节。
我正在创建一个完全更改演示文稿内容的加载项，因此我希望确保用户在加载项运行之前强制执行新的保存时不会意外地破坏所有工作。我正在努力获得＆＃34;另存为＆＃34;要显示的窗口，以便用户可以浏览保存位置并输入文件名。
到目前为止，我发现：
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Show
这表示＆＃34;另存为＆＃34;窗口，但实际上似乎没有保存任何东西。
我也发现：
ActivePresentation.SaveAs
这似乎可行，但我不知道如何从＆＃34;另存为＆＃34;窗口到这一行。
有谁知道如何解决这个问题？或者有不同/更好的解决方案？
更新：回顾一下这看起来我的代码确实在时尚之后保存，它甚至可以保存在我告诉它的地方。但始终使用名称FileDialog（msoFileDialogSaveAs）。
代码如下：
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Show
ActivePresentation.SaveAs (dlgSaveAs)