如何使用vba检查visio中指定加载项的存在

Question

我正在尝试寻找一种方法来使用 VBA 检查 Microsoft Visio 中是否存在加载项。当我使用 Excel 时，我可以在对象模型“Excel”中使用对象“Addin”。因此，例如，如果在 Excel 中我可以使用下一个函数。

Function ExistsAddin(NameAddin As String) As Boolean
Dim objAddin As AddIn   
Dim i As Long           
        For i = 1 To Application.AddIns.count
            Set objAddin = Application.AddIns.item(i)
            If objAddin.name = NameAddin Then
                ExistsAddin = True
                Exit Function
            End If
        Next
        ExistsAddin = False
End Function

但是对象模型 Visio 没有对象“AddIn”。谁能帮我解决我的问题？谢谢。

Answer 1

您可能正在寻找Visio COMAddin。

Function ExistsAddin(NameAddin As String) As Boolean
Dim objAddin As Visio.COMAddIn
Dim i As Long           
        For i = 1 To Visio.COMAddIns.count
            Set objAddin = Visio.COMAddIns.item(i)
            If objAddin .name = NameAddin Then
                ExistsAddin = True
                Exit Function
            End If
        Next
        ExistsAddin = False
End Function

请注意，上面的代码没有经过测试，因为我没有 visio。