Objeto da coleção AddIns

Application AddIns (AddIn)

Uma coleção de objetos AddIn representando todos os suplementos disponíveis no Microsoft Excel, independente deles estarem instalados. Esta lista corresponde à lista de suplementos exibidos na caixa de diálogo Suplementos (menu Ferramentas).

Usando a coleção Addins

Use o método AddIns para retornar a coleção AddIns. O exemplo seguinte cria uma lista que contém os nomes e estados instalados de todos os suplementos disponíveis.

Sub DisplayAddIns()
    Worksheets("Sheet1").Activate
    rw = 1
    For Each ad In Application.AddIns
        Worksheets("Sheet1").Cells(rw, 1) = ad.Name
        Worksheets("Sheet1").Cells(rw, 2) = ad.Installed
        rw = rw + 1
    Next
End Sub

Use o método Add para adicionar um suplemento à lista de suplementos disponíveis. O método Add adiciona um suplemento à lista, mas não instala o suplemento. Define a propriedade Installed do suplemento como True para instalar o suplemento. Para instalar um suplemento que não apareça na lista de suplementos disponíveis, você precisa primeiro usar o método Add e definir a propriedade Installed. Isto pode ser feito em uma única etapa, como mostrado no exemplo seguinte (observe que você usa o nome do suplemento, não seu título, com o método Add).

AddIns.Add("generic.xll").Installed = True

Use AddIns(index) onde index é o título ou o número de índice do suplemento para retornar um único objeto AddIn. O exemplo seguinte instala o suplemento Analysis Toolpak.

AddIns("analysis toolpak").Installed = True

Não confunda o título do suplemento, que aparece na caixa de diálogo Suplementos, com o nome do suplemento, que é o nome do arquivo do suplemento. Você precisa escrever o título do suplemento exatamente como ele é escrito na caixa de diálogo Suplementos, mas não é necessário haver correspondência de maiúsculas e minúsculas.