通过

Application.FeatureInstall 属性 (Excel)

  • 项目

返回或设置一个值 (常量) ，该值指定 Microsoft Excel 如何处理对需要尚未安装的功能的方法和属性的调用。 可以是下表中列出的 MsoFeatureInstall 常量之一。 读/写 读 。

语法

表达式。FeatureInstall

expression：表示 Application 对象的变量。

备注

MsoFeatureInstall 可以是以下常量之一：

  • msoFeatureInstallNone。 调用卸载的功能时，在运行时生成一般自动化错误。 这是默认常量。
  • msoFeatureInstallOnDemand。 提示用户安装新功能。
  • msoFeatureInstallOnDemandWithUI。 在安装过程中显示进度表;不会提示用户安装新功能。

使用 msoFeatureInstallOnDemandWithUI 常量可防止用户在安装某个功能时认为应用程序未响应。 如果您想开发人员是唯一可以安装的功能的用户，请使用 msoFeatureInstallNone 常量。

如果将 DisplayAlerts 属性设置为 False，则即使 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，也不会提示用户安装新功能。 如果 DisplayAlerts 属性设置为 True ，将 FeatureInstall 属性设置为 msoFeatureInstallOnDemand 将显示安装进度计量表。

示例

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。