vba代码在visio中打开.vsdx文件(在excel中运行vba)

Question

我想在Excel中为形状分配一个宏。单击将在Visio中打开流程图。什么代码的工作原理类似于下面打开Excel工作簿，但会打开特定的*.vsdx文件？：

工作簿。打开"；分析。XLS"；

Answer 1

在此处找到帮助：在Access 2010 中使用宏打开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:ImagingBLI-LOCF Flow Diagram.vsdx"
VisioApp.documents.Open FName '
VisioApp.Visible = True