Clase AnimationPoint (PowerPoint VBA)

La clase AnimationPoint 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.

Set

Para usar una variable de clase AnimationPoint, primero debe ser instanciado, por ejemplo

Dim apt as AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase AnimationPoint : AnimationPoints.Item, AnimationPoints.Add y PropertyEffect.Points

Delete

Elimina el objeto AnimationPoint especificado.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Delete

Formula

Devuelve o establece una cadena que representa una fórmula que se utiliza para calcular una animación. Lectura y escritura.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Formula = RGB(Red:=255, Green:=255, Blue:=255)

Parent

Devuelve el objeto primario del objeto especificado.

Time

Devuelve o establece el tiempo en un punto de animación específico. Lectura y escritura.

El valor de la propiedad Time puede ser cualquier valor de punto flotante comprendido entre 0 y 1, que representa un porcentaje de toda la escala de tiempo de 0% a 100%. Por ejemplo, un valor de 0,2 corresponde al punto en el tiempo que se encuentra en el 20% de la duración total de la escala de tiempo de izquierda a derecha.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Time = 0.2

Value

Establece o devuelve el valor de la propiedad de un punto de animación. Lectura y escritura.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Value = RGB(0, 255, 0)

AnimationPoints.Add

Devuelve un objeto AnimationPoint que representa un punto de animación nuevo.

Sintaxis : expression.Add (Index)

Index: Ubicación del punto de animación con respecto a otros puntos de animación. El valor predeterminado es -1, que indica que, si se omite el parámetro Index, se agrega el nuevo punto al final de los puntos de animación existentes.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Add()

AnimationPoints.Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Count

AnimationPoints.Item

Devuelve un único objeto AnimationPoint de la colección AnimationPoints especificada.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto AnimationPoint de la colección que se va a devolver.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)

AnimationPoints.Parent

Devuelve el objeto primario del objeto especificado.

AnimationPoints.Smooth

Determina si se suaviza la transición de un punto de la animación al siguiente. Lectura y escritura.

El valor de la propiedad Smooth puede ser una de estas constantes MsoTriState .

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Smooth = msoTrue