Событие Application.ColorSchemeChanged (PowerPoint)

Статья
04/07/2023

Происходит после изменения цветовой схемы.

Синтаксис

выражение. ColorSchemeChanged( _SldRange_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SldRange	Обязательный	SlideRange	Диапазон слайдов, затронутых изменением.

Замечания

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

Чтобы получить доступ к событиям приложения , объявите переменную Application в разделе Общие объявления кода. Затем задайте переменную, равную объекту Application , для которого требуется получить доступ к событиям. Сведения об использовании событий с объектом Приложения Microsoft PowerPoint см. в разделе Практическое руководство. Использование событий с объектом приложения.

Пример

В этом примере отображается сообщение при изменении цветовой схемы для выбранного слайда или слайдов. В этом примере предполагается, что объект Application с именем PPTApp объявлен с помощью ключевого слова WithEvents .

Private Sub PPTApp_ColorSchemeChanged(ByVal SldRange As SlideRange)



    If SldRange.Count = 1 Then

        MsgBox "You've changed the color scheme for " _
            & SldRange.Name & "."

    Else

        MsgBox "You've changed the color scheme for " _
            & SldRange.Count & " slides."

    End If

End Sub

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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