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

Question

我的数据库中的表单上有一个按钮，我想在点击时打开用户指南。我已经使用的用户指南是visio，但我似乎找不到使用宏构建器打开它的方法。这是我需要使用VBA做的事吗？如果有任何关于代码应该如何的建议？

Answer 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＆gt; References然后将Microsoft Visio库标记为已选中。