FeatureInstall 属性

返回或设置一个值（常量），该值指定 Microsoft Excel 如何处理对所需功能尚未安装的方法和属性的调用。可为下表列出的 MsoFeatureInstall 常量之一。MsoFeatureInstall 类型，可读写。

MsoFeatureInstall 可为以下 MsoFeatureInstall 常量之一。

msoFeatureInstallNone 如果在运行时调用了未安装的功能，则生成普通的自动操作错误。该值为默认常量。

msoFeatureInstallOnDemand 提示用户安装新功能。

msoFeatureInstallOnDemandWithUI 在安装时显示进度表；但不提示用户安装新功能。

expression.FeatureInstall

expression 必需。该表达式返回“应用于”列表中的对象之一。

说明

可以使用 msoFeatureInstallOnDemandWithUI 常量来防止用户误以为在安装某功能时应用程序没有响应。如果希望只有开发者才能安装某些功能，则可使用 msoFeatureInstallNone 常量。

如果将 DisplayAlerts 属性设置为 False，那么即使将 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，系统也不会提示用户安装新功能。如果将 DisplayAlerts 属性设置为 True，则当 FeatureInstall 属性设置为 msoFeatureInstallOnDemand 时，会显示一个安装进度表。

示例

本示例激活 Microsoft Word 的一个新实例，并检查 FeatureInstall 属性的值。请确认设置了一个对 Microsoft Word 对象库的引用。如果 FeatureInstall 属性设置为 msoFeatureInstallNone，该代码将显示在消息框中，询问用户是否更改属性设置。如果用户响应“Yes”, 该属性将设置为 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