Objeto PropertyEffect (PowerPoint)

Representa un efecto de propiedad para un objeto AnimationBehavior.

Ejemplo:

Utilice la propiedad PropertyEffect del objeto AnimationBehavior para devolver un objeto PropertyEffect. En el siguiente ejemplo hace referencia al efecto de propiedad de un comportamiento de animación especificado.

ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

Utilice la propiedad Points para tener acceso a los puntos de animación de un comportamiento de animación específico. Si desea cambiar solo dos estados de un comportamiento de animación, use las propiedades Fromy To. En este ejemplo se agrega una forma nueva a la y se establece el efecto de propiedad para animar el color de relleno de azul a rojo.

Sub AddShapeSetAnimFill()

    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)

    effBlinds.Timing.Duration = 3
    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)

    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub

Consulte también

Referencia del modelo de objetos de PowerPoint

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.