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

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

Синтаксис

выражение. Функция Установка компонентов

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

  • Last updated on