Op deze manier kunt u een macro-gecontroleerde lijst van alle invoegtoepassingen weergeven en direct zien welke invoegtoepassingen zijn ingeschakeld en welke niet
Wilt u macro-gestuurd opvragen welke invoegtoepassingen op een systeem zijn ingesteld? Dit is bijvoorbeeld handig om te zien of gebruikers alle beoogde invoegtoepassingen hebben ingesteld.
U kunt invoegtoepassingen installeren om de Excel-functies uit te breiden. Dit zijn programma-uitbreidingen die worden ingesteld met behulp van de Add-Ins Manager. U vindt deze opdracht bij gebruik van Excel tot versie 2003 via het menu EXTRA'S-ADD-INS.
Als u Excel 2007 gebruikt, roept u deze lijst op met de Office-knop en vervolgens EXCEL-OPTIES - ADD-INS - GA NAAR.
Als je Excel 2010 gebruikt, klik dan op BESTAND, dan ook OPTIES en dan op ADD-INS - GA NAAR.
Als u de lijst vanuit een macro wilt adresseren, gebruikt u het object AddIns. De volgende macro toont een lijst met alle invoegtoepassingen in een nieuw Excel-spreadsheet. Voor elk item in de lijst geeft een logische waarde aan of de juiste invoegtoepassing is geïnstalleerd of niet. Zo ziet de macro eruit:
Sub ShowAddIns ()
Dim ik als geheel getal
Met Werkmappen.Add.Werkbladen (1)
Voor i = 1 Naar AddIns.Count
.Cellen (i + 1, 1) .Waarde = AddIns (i) .Volledige naam
.Cellen (i + 1, 2) .Waarde = AddIns (i) .Geïnstalleerd
volgende i
.Bereik ("a1: b1"). Waarde = Array ("Add-In", "Geïnstalleerd")
.Bereik ("a1: b1"). Lettertype.Bold = True
.Bereik ("a1: b1"). Gehele kolom.AutoFit
Eindigt met
Einde sub
Eenmaal gestart, maakt de macro een lijst met de invoegtoepassingen. De volgende afbeelding laat zien hoe deze lijst eruit kan zien:
Gebruik de eigenschap Name in plaats van de eigenschap FullName als u niet het volledige pad wilt voorlezen, maar alleen de bestandsnaam van de invoegtoepassingen.
Om de macro in te voeren, drukt u in Excel op de toetscombinatie ALT F11. Dit roept de VBA-editor op. Gebruik de opdracht INSERT - MODULE om een leeg moduleblad in te voegen. Om de macro te starten, drukt u in Excel op de toetscombinatie ALT F8.