Propriété Application.FeatureInstall (Word)

Article
04/07/2023

Cette propriété renvoie ou définit la façon dont Microsoft Word gère les appels aux méthodes et propriétés qui nécessitent des fonctionnalités non installées. En lecture/écriture MsoFeatureInstall.

Syntaxe

expression. FeatureInstall

expression Obligatoire. Variable qui représente un objet Application.

Remarques

Utilisez la constante msoFeatureInstallOnDemandWithUI pour empêcher les utilisateurs de croire que l’application ne répond pas pendant l’installation d’une fonctionnalité. Utilisez la constante msoFeatureInstallNone si vous souhaitez que le développeur soit le seul à peut installer des fonctionnalités.

Si vous disposez de la propriété DisplayAlerts a la valeur False, les utilisateurs ne seront pas invités à installer de nouvelles fonctionnalités même si la propriété FeatureInstall a la valeur msoFeatureInstallOnDemand. Si la propriété DisplayAlerts a la valeur true, une jauge de progression de l'installation s'affiche si la propriété FeatureInstall a la valeur msoFeatureInstallOnDemand.

Exemple

Cet exemple montre comment Active une nouvelle instance de Microsoft Excel et vérifie la valeur de la propriété FeatureInstall. Si la propriété a la valeur msoFeatureInstallNone, le code affiche une boîte de message qui demande à l'utilisateur s'il souhaite modifier le paramétrage de la propriété. Si l'utilisateur répond « Oui », la propriété a la valeur msoFeatureInstallOnDemand.

Remarque

[!REMARQUE] Pour que cet exemple fonctionne correctement, vous devez ajouter une référence à la bibliothèque d'objets 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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via