在 Access 2010 中使用宏打开 Visio 绘图

【问题标题】：Open Visio Drawing using a Macro in Access 2010在 Access 2010 中使用宏打开 Visio 绘图
【发布时间】：2016-04-08 08:56:33
【问题描述】：

我的数据库中的表单上有一个按钮，我想在点击时打开用户指南。我整理的用户指南在 visio 中，但我似乎找不到使用宏生成器打开它的方法。这是我需要使用 VBA 做的事情吗？如果是这样，对代码的外观有何建议？

【问题讨论】：

标签： vba ms-access macros visio

【解决方案1】：

我认为类似以下的内容可能会起作用，但我已经对其进行了操作以适应 visio，因此希望它可以起作用。

 Dim FName As String
 Dim VisioApp As Object

 On Error Resume Next
 Set VisioApp = GetObject(, "Visio.Application")
 If VisioApp Is Nothing Then
    Set VisioApp = CreateObject("Visio.Application")
    If VisioApp Is Nothing Then
       MsgBox "Can't connect to Visio"
       Exit Sub
    End If
 End If
 On Error GoTo 0
 FName = "C:\Path\FileName.vsd"

VisioApp.documents.Open FName '
 VisioApp.Visible = True

您可能需要进入 VB 编辑器，单击 Tools > References，然后将 Microsoft Visio 库标记为选中。

【讨论】：