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.
segunda-feira, 25 de maio de 2009
Assinar:
Postar comentários (Atom)
Um comentário:
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
Postar um comentário