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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de