通过

Application.FeatureInstall 属性 (PowerPoint)

  • 项目

返回或设置 Microsoft PowerPoint 如何处理对所需功能尚未安装的方法和属性的调用。 读/写。

语法

expression。 FeatureInstall

expression：表示 Application 对象的变量。

返回值

MsoFeatureInstall

备注

使用 msoFeatureInstallOnDemandWithUI 常量可防止用户在安装某个功能时认为应用程序没有响应。 使用错误捕获例程与 msoFeatureInstallNone 常量排除最终用户功能安装。

注意

[!注释] 如果引用字符串中未安装的演示文稿设计模板时，会生成运行时错误。 无论您的 FeatureInstall 属性设置未自动安装该模板。 当前未安装的模板中使用 ApplyTemplate 方法，首先必须安装额外的设计模板。 若要执行此操作，请运行 Microsoft Office 安装程序 (可通过单击 Windows 控制面板中的 添加/删除程序图标) 为 PowerPoint 安装附加设计模板。

FeatureInstall 属性的值可以是其中一个 读 常量。

常量 说明
msoFeatureInstallNone 默认值。 调用未安装的功能时会产生可捕获的运行时自动错误。
msoFeatureInstallOnDemand 显示对话框提示用户安装新功能。
msoFeatureInstallOnDemandWithUI 安装时显示进度条。 不提示用户安装新功能。

示例

本示例检查 FeatureInstall 属性的值。 如果该属性设置为 msoFeatureInstallNone ，代码将显示一个消息框，询问用户是否要进行更改的属性设置。 如果用户回答"是"，则会将属性设置为 msoFeatureInstallOnDemand 。

With Application
    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 when called?" _
                , 52, "Feature Install Setting")

            If Reply = 6 Then
                .FeatureInstall = msoFeatureInstallOnDemand
            End If
    End If
End With

另请参阅

Application 对象

支持和反馈

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