VBA / Visio：使用VBA打开“另存为”对话框

Question

我想通过VBA为用户打开一个另存为对话框。我找到了这种方法：

   Application.Dialogs(xlDialogSaveAs).Show ("c:\my_folder\")

上一个问题save as dialog excel code

显然，它在Visio中不起作用。 Visio的对应参数是什么？无法在网上找到所有可能选项的列表。

我发现的另一种可能性是

Application.GetSaveAsFilename

但这在Visio中也不起作用！

感谢任何提示！

Answer 1

MS Visio VBA对象模型没有用于保存文档的内置对话框集合。
您可以在VBA项目的引用中添加MS Excel库。 工具->参考 按下按钮浏览并找到MS Excel库 还要查看此列表XlBuiltInDialog Enumeration (Excel)