Application.FeatureInstall Property

Syntax

expression.FeatureInstall

expression A variable that represents an Application object.

Remarks

MsoFeatureInstall can be one of these MsoFeatureInstall constants.

msoFeatureInstallNone. Generates a generic Automation error at run time when uninstalled features are called. This is the default constant.

msoFeatureInstallOnDemand. Prompts the user to install new features.

msoFeatureInstallOnDemandWithUI. Displays a progress meter during installation; doesn't prompt the user to install new features.

You can use the msoFeatureInstallOnDemandWithUI constant to prevent users from thinking that the application isn't responding while a feature is being installed. Use the msoFeatureInstallNone constant if you want the developer to be the only one who can install features.

If you have the DisplayAlerts property set to False, users won't be prompted to install new features even if the FeatureInstall property is set to msoFeatureInstallOnDemand. If the DisplayAlerts property is set to True, an installation progress meter will appear if the FeatureInstall property is set to msoFeatureInstallOnDemand.

Example

This example activates a new instance of Microsoft Word and checks the value of the FeatureInstall property. Be sure to set a reference to the Microsoft Word object library. If the FeatureInstall property is set to msoFeatureInstallNone, the code displays a message box that asks the user whether they want to change the property setting. If the user responds Yes, the property is set to msoFeatureInstallOnDemand.

Visual Basic for Applications

Visual Basic for Applications
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

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

feature feature install FeatureInstall FeatureInstall Property

Returns or sets a value (constant) that specifies how Microsoft Excel handles calls to methods and properties that require features that aren't yet installed. Can be one of the MsoFeatureInstall constants listed in the following table. Read/write MsoFeatureInstall.

See also: