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。

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

1 个答案: