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

Question

I am trying to find a way to check existence of Add-In in Microsoft Visio using VBA. When I using Excel I can use object “Addin” in object model “Excel”. So if in Excel I can use next function, for example.

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

But object model Visio haven’t object “AddIn”. Can anyone help me out with my problem? Thank you.

Answer 1

You might be looking for a Visio COMAddin instead.

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

Please note the above code is not tested as I do not have visio.