Compartilhar via

Propriedade Application.FeatureInstall (Word)

  • Artigo

Retorna ou define como o Microsoft Word trata as chamadas de métodos e propriedades que requerem recursos ainda não instalados. Leitura/gravação MsoFeatureInstall.

Sintaxe

expression. FeatureInstall

expression é obrigatório. Uma variável que representa um objeto Application.

Comentários

Use a constante msoFeatureInstallOnDemandWithUI para impedir que os usuários acreditem 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 instale novos recursos, mesmo se a propriedade FeatureInstall estiver 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

Este exemplo ativa uma nova instância do Microsoft Excel e verifica o valor da propriedade FeatureInstall. Se a propriedade estiver definida como msoFeatureInstallNone, o código exibe uma caixa de mensagem que pergunta ao usuário se ele deseja alterar a configuração da propriedade. Se o usuário responder "Sim", a propriedade é definida como msoFeatureInstallOnDemand.

Observação

[!OBSERVAçãO] Para que esse exemplo funcione corretamente, você deve adicionar uma referência à Biblioteca de Objetos do Microsoft Excel.

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

Confira também

Objeto de Aplicativo

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.