Свойство 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.