segunda-feira, 25 de maio de 2009

Suplementos

Se você utiliza algum suplemento em sua planilha e tem que distribuí-la depois, você vai ter que informar ao usuário a necessidade habilitar esse suplemento para que a planilha funcione corretamente.

Você também pode automatizar a habilitação do suplemento adicionado o código abaixo ao evento Open do Workbook:

If Not AddIns(“Ferramentas de análise”).Installed Then
. AddIns(“Ferramentas de análise”).Installed = True
End If


No entanto, se algum usuário utiliza o Excel em outro idioma, o suplemento não será encontrado, a menos que você faça a verificação no outro idioma também. Uma maneira de resolver isso é fazer a habilitação do suplemento a partir do nome da biblioteca - o arquivo DLL - mas nesse caso você vai ter que percorrer toda a lista de suplementos disponíveis em vez de fazer uma referência direta, como abaixo:

Dim I As Integer

For I = 1 To AddIns.Count

. . If AddIns(I).Name = "ANALYS32.XLL" Then
. . . If Not AddIns(I).Installed Then
. . . . AddIns(I).Installed = True
. . . End If
. . . Exit For
. End If
Next I

Para descobrir nome da biblioteca, na janela imediata digite:

?AddIns(“Ferramentas de análise”).Name

Importante! Os códigos apresentados não instalam os suplementos, apenas os habilitam! Para instalação, consulte o manual do fornecedor do suplemento.

Um comentário:

Agnon Fabiano disse...

Uma forma interessande de resolver o problema quanto ao idioma do office para instalação de suplementos é descobrindo o número da do identificador de locatidade, onde cada linguagem do Office possui um identificado, como por exemplo, portugues é 1046 e ingles é 1033. (Lista de Identificadores: http://support.microsoft.com/kb/221435)

Para ver esse identificador, pode-se usar a função abaixo:

Sub IdLocalidade()
Set objLangSet = Application.LanguageSettings
MsgBox objLangSet.LanguageID(msoLanguageIDInstall)
End Sub