Свойство 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 и обратная связь.