Ler em inglês

Compartilhar via


Objeto AddIn (Excel)

Representa um único suplemento, instalado ou não.

Comentários

O objeto AddIn é um membro da coleção AddIns. A coleção AddIns contém uma lista de 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.

Exemplo

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.

O número de índice representa a posição do suplemento na caixa Suplementos disponíveis da caixa de diálogo Suplementos. O exemplo a seguir cria uma lista que contém propriedades especificadas dos suplementos disponíveis.

With Worksheets("sheet1") 
 .Rows(1).Font.Bold = True 
 .Range("a1:d1").Value = _ 
 Array("Name", "Full Name", "Title", "Installed") 
 For i = 1 To AddIns.Count 
 .Cells(i + 1, 1) = AddIns(i).Name 
 .Cells(i + 1, 2) = AddIns(i).FullName 
 .Cells(i + 1, 3) = AddIns(i).Title 
 .Cells(i + 1, 4) = AddIns(i).Installed 
 Next 
 .Range("a1").CurrentRegion.Columns.AutoFit 
End With

O método Add adiciona um suplemento à lista de suplementos disponíveis, mas não instala o suplemento. Defina a propriedade Installed do suplemento como True para instalá-lo.

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 pastas de trabalho (índice), em que index é o nome do arquivo de suplemento (não título) para retornar uma referência à pasta de trabalho correspondente a um suplemento carregado. Você deve usar o nome do arquivo porque os suplementos carregados normalmente não aparecem na coleção Pastas de Trabalho . Este exemplo define a variável wb como a pasta de trabalho de Myaddin.xla.

Set wb = Workbooks("myaddin.xla")

O exemplo a seguir define a variável wb como a pasta de trabalho do suplemento Ferramentas de Análise.

Set wb = Workbooks(AddIns("analysis toolpak").Name)

Se a propriedade Instalada retornar True, mas as chamadas para funções no suplemento ainda falharem, o suplemento poderá não ser carregado. Isso ocorre porque o objeto Addin representa a existência e o estado instalado do suplemento, mas não representa o conteúdo real da pasta de trabalho de suplemento. Para garantir que um suplemento instalado seja carregado, você deve abrir a pasta de trabalho de suplemento.

O exemplo a seguir abre a pasta de trabalho para o suplemento chamado "My Addin" se o suplemento ainda não estiver presente na coleção Pastas de Trabalho .

On Error Resume Next ' turn off error checking 
Set wbMyAddin = Workbooks(AddIns("My Addin").Name) 
lastError = Err 
On Error Goto 0 ' restore error checking 
If lastError <> 0 Then 
 ' the add-in workbook isn't currently open. Manually open it. 
 Set wbMyAddin = Workbooks.Open(AddIns("My Addin").FullName) 
End If

Propriedades

Confira também

Suporte e comentários

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.