Объект ColorEffect (PowerPoint)

Представляет цветовой эффект для поведения анимации.

Пример

Используйте свойство ColorEffectобъекта AnimationBehavior , чтобы вернуть объект ColorEffect . Цветовые эффекты можно изменить с помощью свойств Fromи Toобъекта ColorEffect, как показано ниже. Цветовые эффекты изначально задаются с помощью свойства To , а затем могут быть изменены на определенное число с помощью свойства By. В следующем примере фигура добавляется на первый слайд активной презентации и задает поведение анимации цветовых эффектов, чтобы изменить цвет заливки новой фигуры.

Sub ChangeColorEffect()

    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior

    Set sldFirst = ActivePresentation.Slides(1)

    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)

    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    Set bhvEffect = effNew.Behaviors.Add(Type:=msoAnimTypeColor)

    With bhvEffect.ColorEffect
        .From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    End With

End Sub

См. также

Справочник по объектной модели PowerPoint

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

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