如何:打开 Visio 文档
更新:2007 年 11 月
有两种方法可用来打开现有 Microsoft Office Visio 文档:Open 和 OpenEx。在 OpenEx 方法提供的参数中调用方可以指定文档的打开方式,除此之外,此方法与 Open 方法完全相同。
有关对象模型的详细信息,请参见 Microsoft.Office.Interop.Visio.Documents.Open 方法和 Microsoft.Office.Interop.Visio.Documents.OpenEx 方法的 VBA 参考文档。
打开 Visio 文档
打开 Visio 文档
调用 Microsoft.Office.Interop.Visio.Documents.Open 方法并提供 Visio 文档的完全限定路径。
Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd" Me.Application.Documents.Open(docPath)
string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd"; this.Application.Documents.Open(docPath);
使用指定的参数打开 Visio 文档
以只读和停靠方式打开 Visio 文档
调用 Microsoft.Office.Interop.Visio.Documents.OpenEx 方法,提供 Visio 文档的完全限定路径,并包含您要使用的参数,在本例中,参数为停靠和只读。
Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd" Me.Application.Documents.OpenEx(docPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenDocked) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenRO))
string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd"; this.Application.Documents.OpenEx(docPath, ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenDocked + (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenRO));
编译代码
此代码示例要求满足以下条件:
- 必须有一个名为 myDrawing.vsd 的 Visio 文档位于 My Documents 文件夹(对于 Windows XP 及更低版本)或 Documents 文件夹(对于 Windows Vista)中名为 Test 的目录中。