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

Question

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

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 在 vi​​sio 中检查指定加载项是否存在

how check existence of specified add-in in visio using vba

vba

visio

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