Поделиться через

Свойство Application.FeatureInstall (Excel)

  • Статья

Возвращает или задает значение (константу), указывающее, как Microsoft Excel обрабатывает вызовы методов и свойств, для которых требуются компоненты, которые еще не установлены. Может быть одной из констант MsoFeatureInstall , перечисленных в следующей таблице. Чтение и запись MsoFeatureInstall.

Синтаксис

expression. FeatureInstall

выражение: переменная, представляющая объект 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 и обратная связь.