свойство ColorEffect.By (PowerPoint)

Возвращает объект ColorFormat , представляющий изменение цвета объекта указанным числом, выраженным в формате RGB. Только для чтения.

Синтаксис

выражение. By

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

Замечания

Не путайте это свойство со свойствами ByX или ByY объектов ScaleEffect и MotionEffect , которые используются только для масштабирования или эффектов движения.

Пример

В этом примере добавляется эффект цвета и изменяется его цвет. В этом примере предполагается, что на первом слайде активной презентации есть по крайней мере одна фигура.

Sub AddAndChangeColorEffect()

    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim clrEffect As ColorEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and color effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)
    Set clrEffect = animBehavior.ColorEffect

    'Specifies color
    clrEffect.By.RGB = RGB(Red:=255, Green:=0, Blue:=0)

End Sub

См. также

Объект ColorEffect

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

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