Compartilhar via

Propriedade Application.FeatureInstall (Excel)

Devolve ou define um valor (constante) que especifica a forma como o Microsoft Excel processa as chamadas para métodos e propriedades que requerem funcionalidades que ainda não estão instaladas. Pode ser uma das constantes MsoFeatureInstall listadas na tabela seguinte. Leitura/gravação MsoFeatureInstall.

Sintaxe

expressão. FeatureInstall

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

Comentários

MsoFeatureInstall pode ser uma destas constantes:

  • msoFeatureInstallNone. Gera um erro genérico de Automatização no runtime quando as funcionalidades desinstaladas são chamadas. Esta é a constante padrão.
  • msoFeatureInstallOnDemand. Solicita que o usuário instale novos recursos.
  • msoFeatureInstallOnDemandWithUI. Apresenta um medidor de progresso durante a instalação; não pede ao utilizador para instalar novas funcionalidades.

Utilize a constante msoFeatureInstallOnDemandWithUI para impedir que os utilizadores pensem que a aplicação não está a responder enquanto uma funcionalidade está a ser instalada. Use a constante msoFeatureInstallNone se desejar que o desenvolvedor seja a única pessoa que pode instalar recursos.

Se tiver a propriedade DisplayAlerts definida como Falso, não será pedido aos utilizadores que instalem novas funcionalidades, 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 utilizador responder Sim, a propriedade está 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.

  • Last updated on