Событие Application. Колорсчемечанжед (PowerPoint)Application.ColorSchemeChanged event (PowerPoint)

Возникает после изменения цветовой схемы.Occurs after a color scheme is changed.

СинтаксисSyntax

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

выражение: переменная, представляющая объект Application.expression A variable that represents an Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
СлдранжеSldRange ОбязательныйRequired SlideRangeSlideRange Диапазон слайдов, на которые влияет изменение.The range of slides affected by the change.

ПримечанияRemarks

Действия, инициирующие это событие, могут включать такие действия, как изменение цветовой схемы слайда или образца слайда, а также применение шаблона.Actions which trigger this event would include actions such as modifying a slide's or slide master's color scheme, or applying a template.

Чтобы получить доступ к событиям приложения , объявите переменную приложения в разделе Общие объявления кода.To access the Application events, declare an Application variable in the General Declarations section of your code. Затем присвойте переменной значение, равное объекту Application , для которого требуется получить доступ к событиям.Then set the variable equal to the Application object for which you want to access events. Сведения об использовании событий с объектом приложения Microsoft PowerPoint приведены в статье как: использование событий с объектом Application.For information about using events with the Microsoft PowerPoint Application object, see How to: Use Events with the Application Object.

ПримерExample

В этом примере отображается сообщение при изменении цветовой схемы для выбранного слайда или слайдов.This example displays a message when the color scheme for the selected slide or slides is changed. В этом примере предполагается, что объект приложения с именем пптапп был объявлен с помощью ключевого слова WithEvents .This example assumes an Application object called PPTApp has been declared by using the WithEvents keyword.

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

См. такжеSee also

Объект ApplicationApplication Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.