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

Возвращает или определяет, как Microsoft PowerPoint обрабатывает вызовы методов и свойств, для которых требуются еще не установленные компоненты. Для чтения и записи.

Синтаксис

выражение. FeatureInstall

выражение: переменная, представляющая объект Application.

Возвращаемое значение

MsoFeatureInstall

Примечания

Используйте константу msoFeatureInstallOnDemandWithUI , чтобы пользователи не думали, что приложение не отвечает во время установки компонента. Используйте константу msoFeatureInstallNone с программами перехвата ошибок, чтобы исключить установку компонентов конечным пользователем.

Примечание.

Если сослаться на удаленный шаблон оформления презентации в строке, будет создана ошибка во время выполнения. Шаблон не устанавливается автоматически независимо от параметра свойства FeatureInstall . Чтобы использовать метод ApplyTemplate для шаблона, который в настоящее время не установлен, необходимо сначала установить дополнительные шаблоны оформления. Для этого установите дополнительные шаблоны оформления для PowerPoint, запустив программу установки Microsoft Office (ее можно открыть, щелкнув значок "Установка и удаление программ" на панель управления Windows).

Значением свойства FeatureInstall может быть одна из этих констант MsoFeatureInstall .

Константа	Описание
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 и обратная связь.