Compartir a través de

propiedad ColorEffect.By (PowerPoint)

  • Artículo

Devuelve un objeto ColorFormat que representa un cambio en el color del objeto según el número especificado, expresado en el formato RGB. Solo lectura.

Sintaxis

expresión. By

Expresión Variable que representa un objeto ColorEffect .

Comentarios

No confunda esta propiedad con la ByX o ByY de propiedades de los objetos ScaleEffect y MotionEffect, que sólo se usan para los efectos de ajuste y movimiento.

Ejemplo:

En este ejemplo se agrega un efecto de color y se modifica dicho color. En este ejemplo se supone que existe, como mínimo, una forma en la primera diapositiva de la presentación activa.

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

Consulte también

Objeto ColorEffect

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.