Classe AnimationPoint (PowerPoint VBA)

A classe AnimationPoint representa um ponto de animação individual para um comportamento de animação. O objeto AnimationPoint é um membro da coleção AnimationPoints. A coleção AnimationPoints contém todos os pontos de animação para um comportamento de animação.

Set

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

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo AnimationPoint: AnimationPoints.Item, AnimationPoints.Add e PropertyEffect.Points

Delete

Exclui o objeto AnimationPoint especificado.

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

Formula

Retorna ou define um String que representa uma fórmula a ser usada para calcular uma animação. Leitura/gravação.

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

Parent

Retorna o objeto parente para o objeto especificado.

Time

Define ou retorna o tempo em um dado ponto de uma animação. Leitura/gravação.

O valor da propriedade time pode ser qualquer valor de ponto flutuante entre 0 e 1, representando uma porcentagem da linha do tempo inteira de 0% a 100%. Por exemplo, o valor 0,2 corresponderia a um ponto no tempo a 20% da duração da linha do tempo inteira, da esquerda para a direita.

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

Value

Define ou retorna o valor de uma propriedade para um ponto de animação. Leitura/gravação.

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

AnimationPoints.Add

Retorna um objeto AnimationPoint que representa um novo ponto de animação.

Sintaxe : expression.Add (Index)

Index: A posição do ponto de animação em relação a outros pontos de animação. O valor padrão é -1, o que significa que, se você omitir o parâmetro Index, o novo ponto de animação será adicionado ao final dos pontos de animação existentes.

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

AnimationPoints.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(1).PropertyEffect.Points.Count

AnimationPoints.Item

Retorna um único objeto AnimationPoint da coleção AnimationPoints especificada.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto AnimationPoint da coleção a ser retornado.

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

AnimationPoints.Parent

Retorna o objeto parente para o objeto especificado.

AnimationPoints.Smooth

Determina se a transição de um ponto de animação para outro deve ser ou não suavizada. Leitura/gravação.

O valor da propriedade Smooth pode ser uma destas constantes MsoTriState .

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