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

Question

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

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

来自上一个问题

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

我发现的另一种可能性是

Application.GetSaveAsFilename

但这在 Visio 中也不起作用！

感谢任何提示！

Answer 1

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