Clase AnimationBehavior (PowerPoint VBA)

La clase AnimationBehavior representa el comportamiento de un efecto de animación, la secuencia de animación principal o una secuencia de animación interactiva. El objeto AnimationBehavior es un miembro de la colección AnimationBehaviors.

Los principales procedimientos de la clase AnimationBehavior son Delete y AnimationBehaviors.Add

Set

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

Dim abr as AnimationBehavior
Set abr = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase AnimationBehavior : AnimationBehaviors.Item, AnimationBehaviors.Add y Effect.Behaviors

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Add with its procedures Additive y AnimationBehaviors.Add

Métodos

Los principales métodos de la clase AnimationBehavior son

Delete - Elimina el objeto AnimationBehavior especificado.

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

Propiedades

Accumulate Determina si los comportamientos de animación se acumulan. Lectura y escritura.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Accumulate = msoAnimAccumulateAlways

ColorEffect Devuelve un objeto ColorEffect que representa las propiedades de color del comportamiento de la animación especificado.

Dim cetColorEffect As ColorEffect
Set cetColorEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).ColorEffect

CommandEffect Devuelve un objeto CommandEffect para el comportamiento de animación especificado. Solo lectura.

Dim cetCommandEffect As CommandEffect
Set cetCommandEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).CommandEffect

FilterEffect Devuelve un objeto FilterEffect que representa un efecto de filtro para un comportamiento de animación. Solo lectura.

Dim fetFilterEffect As FilterEffect
Set fetFilterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).FilterEffect

MotionEffect Devuelve un objeto MotionEffect que representa las propiedades de una animación de movimiento.

Dim metMotionEffect As MotionEffect
Set metMotionEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).MotionEffect

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Parent

PropertyEffect Devuelve un objeto PropertyEffect para un comportamiento de animación específico. Solo lectura.

Dim petPropertyEffect As PropertyEffect
Set petPropertyEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect

RotationEffect Devuelve un objeto RotationEffect para un comportamiento de animación. Solo lectura.

Dim retRotationEffect As RotationEffect
Set retRotationEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).RotationEffect

ScaleEffect Devuelve un objeto ScaleEffect para un comportamiento de animación específico. Solo lectura.

Dim setScaleEffect As ScaleEffect
Set setScaleEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).ScaleEffect

SetEffect Devuelve un objeto SetEffect para el comportamiento de animación. Solo lectura.

Dim setSetEffect As SetEffect
Set setSetEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).SetEffect

Timing Devuelve un objeto Timing que representa las propiedades de tiempo de una secuencia de animación.

Dim tmnTiming As Timing
Set tmnTiming = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).Timing

Type Representa el tipo de animación. Lectura y escritura.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).Type = msoAnimTypeColor

AnimationBehaviors.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.Count

AnimationBehaviors.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors.Parent