Objeto AddIns (Excel)
Uma coleção de objetos AddIn que representa todos os suplementos disponíveis para o Microsoft Excel, independentemente de estarem instalados.
Essa lista corresponde à lista de suplementos exibidos na caixa de diálogo Suplementos.
Use a propriedade Application para retornar a coleção AddIns . O exemplo a seguir cria uma lista que contém os nomes e os 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. Defina a propriedade Instalada do suplemento como True para instalar o suplemento.
Para instalar um suplemento que não aparece na lista de suplementos disponíveis, primeiro você deve usar o método Add e definir a propriedade Installed . Isso pode ser feito em uma única etapa, como mostra o exemplo a seguir (observe que você usa o nome do suplemento, e não seu título, com o método Add).
AddIns.Add("generic.xll").Installed = True
Use AddIns (index), em que o índice é o título de suplemento ou o número de índice, para retornar um único objeto AddIn . O exemplo a seguir instala o suplemento Ferramentas de Análise.
AddIns("analysis toolpak").Installed = True
Não confunda o título de suplemento, que aparece na caixa de diálogo Suplementos , com o nome do suplemento, que é o nome do arquivo do suplemento. Você deve soletrar o título de suplemento exatamente como está escrito na caixa de diálogo Suplementos , mas a capitalização não precisa corresponder.
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.