Classe AnimationPoints (PowerPoint VBA)

A classe AnimationPoints representa uma coleção de pontos de animação para um objeto PropertyEffect.

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

Dim aps as AnimationPoints
Set aps = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points

As variáveis ​​de classe AnimationPoints podem ser definidas usando o procedimento PropertyEffect.Points.

Add

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

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()

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

Item

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

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)

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