在 Access 2010 中使用宏打开 Visio 绘图
Open Visio Drawing using a Macro in Access 2010
我的数据库中的表单上有一个按钮,我想在单击时打开用户指南。我收集的用户指南在 visio 中,但我似乎无法找到使用宏生成器打开它的方法。这是我需要使用 VBA 做的事情吗?如果是这样,对代码的外观有什么建议吗?
我认为像下面这样的东西可能会起作用,不过我已经对其进行了处理以适应 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 库标记为已选中。
我的数据库中的表单上有一个按钮,我想在单击时打开用户指南。我收集的用户指南在 visio 中,但我似乎无法找到使用宏生成器打开它的方法。这是我需要使用 VBA 做的事情吗?如果是这样,对代码的外观有什么建议吗?
我认为像下面这样的东西可能会起作用,不过我已经对其进行了处理以适应 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 库标记为已选中。