Objeto AnimationPoint (PowerPoint)

Representa un punto de animación individual para un comportamiento de animación. El objeto AnimationPoint es un miembro de la colección AnimationPoints. La colección AnimationPoints contiene todos los puntos de animación para un comportamiento de animación.

Ejemplo:

Para agregar o hacer referencia a un objeto AnimationPoint , use el método Add o Item, respectivamente. Use la propiedadTime de un objeto AnimationPoint para establecer los intervalos entre puntos de animación. Utilice la propiedad Value para establecer otras propiedades de punto, como el color de animación. El siguiente ejemplo agrega tres puntos de animación al primer comportamiento en la secuencia de animación principal de la presentación activa y, a continuación, cambia el color en cada punto de animación.

Sub AniPoint()

    Dim sldNewSlide As Slide
    Dim shpHeart As Shape
    Dim effCustom As Effect
    Dim aniBehavior As AnimationBehavior
    Dim aptNewPoint As AnimationPoint

    Set sldNewSlide = ActivePresentation.Slides.Add _
        (Index:=1, Layout:=ppLayoutBlank)

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

    Set effCustom = sldNewSlide.TimeLine.MainSequence _
        .AddEffect(shpHeart, msoAnimEffectCustom)

    Set aniBehavior = effCustom.Behaviors.Add(msoAnimTypeProperty)

    With aniBehavior.PropertyEffect
        .Property = msoAnimShapeFillColor
        Set aptNewPoint = .Points.Add
        aptNewPoint.Time = 0.2
        aptNewPoint.Value = RGB(0, 0, 0)
        Set aptNewPoint = .Points.Add
        aptNewPoint.Time = 0.5
        aptNewPoint.Value = RGB(0, 255, 0)
        Set aptNewPoint = .Points.Add
        aptNewPoint.Time = 1
        aptNewPoint.Value = RGB(0, 255, 255)
    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.