Alle Add-Ins auflisten

Alle Add-Ins auflisten

Funktion

Diese Prozedur listet alle Add-Ins auf. Es ist möglich, nur die geladenen Add-Ins oder alle Add-Ins aufzulisten.

Code

Public Sub AlleAddinsAuflisten(Optional ByVal fNurGeladen As Boolean = True)

'Variablen deklarieren Dim intI As Integer Dim AddIns As VBIDE.AddIns
Set AddIns = Application.VBE.AddIns For intI = 1 To AddIns.Count If fNurGeladen = True Then If AddIns(intI).Connect = True Then Debug.Print AddIns(intI).ProgId End If Else Debug.Print AddIns(intI).ProgId End If Next Set AddIns = Nothing
End Sub

Beschreibung

Die Auflistung der Add-Ins kann leider nicht mit For Each durchlaufen werden. Daher wird die Anzahl der Add-Ins ermittelt und dann jedes Add-In einzeln ausgegeben. Wenn nur die geladenen Add-Ins ausgegeben werden sollen, wird zusätzlich noch die Connect-Eigenschaft untersucht.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich: