Partilhar 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

Utilize AddIns (índice), em que o índice é o título do suplemento ou número de índice, para devolver 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 do suplemento, que aparece na caixa de diálogo Suplementos , com o nome do suplemento, que é o nome do ficheiro do suplemento. Tem de escrever o título do suplemento exatamente como está escrito na caixa de diálogo Suplementos, mas o uso de maiúsculas/minúsculas não tem de 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 tem de utilizar o método Adicionar e, em seguida, definir a propriedade Instalado . 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

Utilize Livros (índice), em que o índice é o nome de ficheiro do suplemento (não o título) para devolver uma referência ao livro correspondente a um suplemento carregado. Tem de utilizar o nome do ficheiro porque os suplementos carregados normalmente não aparecem na coleção Livros . 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 Instalado devolver Verdadeiro, mas as chamadas para funções no suplemento ainda falharem, o suplemento poderá não ser carregado. Isto acontece porque o objeto Addin representa o estado de existência e instalação do suplemento, mas não representa o conteúdo real do livro do suplemento. Para garantir que um suplemento instalado é carregado, deve abrir o livro de suplementos.

O exemplo seguinte abre o livro do suplemento com o nome "O Meu Suplemento" se o suplemento ainda não estiver presente na coleção Livros .

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.

  • Last updated on