什么VBA代码在visio中打开.vsdx文件在excel中运行vba

编程问答 2022-06-03

问题描述

我想在Excel中将宏分配给形状。单击时将在Visio中打开流程图。哪种编码将类似于下面的代码，打开一个Excel工作簿，但是打开一个特定的* .vsdx文件？

工作簿。打开“ ANALYSIS.XLS”

解决方法

在此处找到帮助： Open Visio Drawing using a Macro in Access 2010

这对我有用：

    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:\Imaging\BLI-LOCF Flow Diagram.vsdx"
    VisioApp.documents.Open FName '
    VisioApp.Visible = True
excelexcelvisio