Excel VBA教程: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

上页:Excel VBA教程:ExtrusionColorType属性 下页:Excel VBA教程:FetchedRowOverflow属性

Excel VBA教程:FeatureInstall属性

Excel VBA教程:FetchedRowOverflow属性 Excel VBA教程:FieldNames属性
Excel VBA教程:FileConverters属性 Excel VBA教程:FileDialog属性
Excel VBA教程:获取有关 Macintosh 关键字的“帮助” Excel VBA教程:FileFormat属性
Excel VBA教程:FileName属性 Excel VBA教程:FileSearch属性
Excel VBA教程:Fill属性 Excel VBA教程:FillAdjacentFormulas属性
Excel VBA教程:FilterMode属性 Excel VBA教程:Filters属性
Excel VBA教程:FindFormat属性 Excel VBA教程:FirstChild属性
Excel VBA教程:FirstPageNumber属性 Excel VBA教程:FirstSliceAngle属性
Excel VBA教程:FitToPagesTall属性 Excel VBA教程:FitToPagesWide属性
Excel VBA教程:FixedDecimal属性 Excel VBA教程:FixedDecimalPlaces属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号