Propriedade Application.FeatureInstall (Excel)

Retorna ou define um valor (constante) que especifica como o Microsoft Excel lida com chamadas para métodos e propriedades que exigem recursos que ainda não estão instalados. Pode ser uma das constantes MsoFeatureInstall listadas na tabela a seguir. Leitura/gravação MsoFeatureInstall.

Sintaxe

expressão. FeatureInstall

expressão Uma variável que representa um Aplicativo objeto.

Comentários

MsoFeatureInstall pode ser uma dessas constantes:

• msoFeatureInstallNone. Gera um erro genérico de Automação no runtime quando recursos desinstalados são chamados. Esta é a constante padrão.
• msoFeatureInstallOnDemand. Solicita que o usuário instale novos recursos.
• msoFeatureInstallOnDemandWithUI. Exibe um medidor de progresso durante a instalação; não solicita que o usuário instale novos recursos.

Use a constante msoFeatureInstallOnDemandWithUI para impedir que os usuários pensem que o aplicativo não está respondendo enquanto um recurso está sendo instalado. Use a constante msoFeatureInstallNone se desejar que o desenvolvedor seja a única pessoa que pode instalar recursos.

Se você tiver a propriedade DisplayAlerts definida como False, os usuários não serão solicitados a instalar novos recursos, mesmo que a propriedade FeatureInstall esteja definida como msoFeatureInstallOnDemand. Se a propriedade DisplayAlerts for definida como True, um medidor de progresso de instalação aparecerá se a propriedade FeatureInstall estiver definida como msoFeatureInstallOnDemand.

Exemplo

Esse exemplo ativa uma nova instância do Microsoft Word e verifica o valor da propriedade FeatureInstall. Certifique-se de definir uma referência para a biblioteca de objeto do Microsoft Word. Se a propriedade FeatureInstall estiver definida como msoFeatureInstallNone, o código exibirá uma caixa de mensagem questionando o usuário se ele deseja alterar a configuração da propriedade. Se o usuário responder Sim, a propriedade será definida como msoFeatureInstallOnDemand.

Dim WordApp As New Word.Application, Reply As Integer 
Application.ActivateMicrosoftApp xlMicrosoftWord With WordApp 
    If .FeatureInstall = msoFeatureInstallNone Then 
        Reply = MsgBox("Uninstalled features for this " _ 
            & "application " & vbCrLf _ 
            & "may cause a run-time error when called." & vbCrLf _ 
            & vbCrLf _ 
            & "Would you like to change this setting" & vbCrLf _ 
            & "to automatically install missing features?" _ 
            , 52, "Feature Install Setting") 
        If Reply = 6 Then 
            .FeatureInstall = msoFeatureInstallOnDemand 
        End If 
    End If 
End With

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.