Classe AnimationBehavior (PowerPoint VBA)

A classe AnimationBehavior representa o comportamento de uma sequência de animação interativas, a sequência de animação principal ou um efeito de animação. O objeto AnimationBehavior é um membro da coleção AnimationBehaviors.

Os principais procedimentos da classe AnimationBehavior são Delete e AnimationBehaviors.Add

Set

Para usar uma variável de classe AnimationBehavior, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo AnimationBehavior: AnimationBehaviors.Item, AnimationBehaviors.Add e Effect.Behaviors

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Add with its procedures Additive e AnimationBehaviors.Add

Métodos

Estes são os principais métodos da classe AnimationBehavior

Delete - Exclui o objeto AnimationBehavior especificado.

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

Propriedades

Accumulate Determina se os comportamentos de animação se acumulam. Leitura/gravação.

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

ColorEffect Retorna um objeto ColorEffect que representa as propriedades de cores para um comportamento de animação especificado.

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

CommandEffect Retorna um objeto CommandEffect para o comportamento de animação especificado. Somente leitura.

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

FilterEffect Retorna um objeto FilterEffect que representa um efeito de filtro para um comportamento de animação. Somente leitura.

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

MotionEffect Retorna um objeto MotionEffect que representa as propriedades de uma animação de movimento.

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

Parent Retorna o objeto parente para o objeto especificado.

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

PropertyEffect Retorna um objeto PropertyEffect para um determinado comportamento de animação. Somente leitura.

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

RotationEffect Retorna um objeto RotationEffect para um comportamento de animação. Somente leitura.

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

ScaleEffect Retorna um objeto ScaleEffect para um determinado comportamento de animação. Somente leitura.

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

SetEffect Retorna um objeto SetEffect para o comportamento de animação. Somente leitura.

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

Timing Retorna um objeto Timing que representa as propriedades de intervalo para uma sequência de animação.

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

Type Representa o tipo de animação. Leitura/gravação.

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

AnimationBehaviors.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

AnimationBehaviors.Parent Retorna o objeto parente para o objeto especificado.

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