Classe Effect (PowerPoint VBA)

A classe Effect representa informações de intervalos sobre uma animação de slides.

O procedimento principal da classe Effect é Delete

Set

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

Dim eff as Effect
Set eff = ActivePresentation.SlideMaster.TimeLine.MainSequence(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Effect: Sequence.Item, Sequence.Clone, Sequence.AddEffect, Sequence.AddTriggerEffect, Sequence.ConvertToAfterEffect, Sequence.ConvertToAnimateBackground, Sequence.ConvertToAnimateInReverse, Sequence.ConvertToBuildLevel, Sequence.ConvertToTextUnitEffect, Sequence.FindFirstAnimationFor, Sequence.FindFirstAnimationForClick, Sequences.Item, Sequences.Add e TimeLine.MainSequence

Temas

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

Add with its procedures Sequence.AddEffect e Sequence.AddTriggerEffect

Métodos

Este é o método principal da classe Effect

Delete - Exclui o objeto Effect especificado.

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

Estes são os principais métodos da classe

Sequence.Clone - Cria uma cópia de um objeto Effect e adiciona-a à coleção Sequences na posição de índice especificada.

Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)

Sequence.ConvertToAfterEffect - Especifica o que fazer um efeito depois que ele for concluído. Retorna um objeto Effect que representa um efeito posterior.

Dim effConvertToAfterEffect As Effect
Set effConvertToAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAfterEffect(Effect:=, After:=msoAnimAfterEffectDim)

Sequence.ConvertToAnimateBackground - Determina se o plano de fundo será animado separadamente de ou além, do texto que a acompanha. Retorna um objeto Effect que representa o efeito de animação recentemente modificados.

Dim effConvertToAnimateBackground As Effect
Set effConvertToAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateBackground(Effect:=, AnimateBackground:=msoTrue)

Sequence.ConvertToAnimateInReverse - Determina se o texto será animado na ordem inversa. Retorna um objeto Effect que representa a animação do texto.

Dim effConvertToAnimateInReverse As Effect
Set effConvertToAnimateInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateInReverse(Effect:=, animateInReverse:=msoTrue)

Sequence.ConvertToBuildLevel - Altera as informações de nível de construção para um efeito de animação específico. Retorna um objeto Effect que representa as informações de nível de construção.

Dim effConvertToBuildLevel As Effect
Set effConvertToBuildLevel = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToBuildLevel(Effect:=, Level:=msoAnimateChartAllAtOnce)

Sequence.ConvertToTextUnitEffect - Retorna um objeto Effect que representa como o texto deve ser animado.

Dim effConvertToTextUnitEffect As Effect
Set effConvertToTextUnitEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToTextUnitEffect(Effect:=, unitEffect:=msoAnimTextUnitEffectByCharacter)

Propriedades

Behaviors Retorna o comportamento de uma apresentação de slides especificada como uma coleção AnimationBehaviors.

Dim absBehaviors As AnimationBehaviors
Set absBehaviors = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors

DisplayName Retorna o nome de um efeito de animação. Somente leitura.

Dim strDisplayName As String
strDisplayName = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).DisplayName

EffectInformation Retorna um objeto EffectInformation que representa informações de um efeito de animação especificado.

Dim einEffectInformation As EffectInformation
Set einEffectInformation = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation

EffectParameters Retorna um objeto EffectParameters que representa propriedades de efeito de animação.

Dim epsEffectParameters As EffectParameters
Set epsEffectParameters = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters

EffectType Define ou retorna uma constante de MsoAnimEffect que representa um tipo de efeito de animação. Leitura/gravação.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectType = msoAnimEffect3DArrive

Exit Determina se o efeito de animação é um efeito de saída. Leitura/gravação.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Exit = msoTrue

Index Retorna um Long que representa o número de índice para um efeito de animação ou design. Somente leitura.

Dim lngIndex As Long
lngIndex = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Index

Paragraph Retorna ou define o parágrafo em um intervalo de texto no qual serão aplicados efeitos de animação. Leitura/gravação.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Paragraph =

Parent Retorna o objeto parente para o objeto especificado.

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

Shape Retorna um objeto Shape que representa uma forma animada.

Set ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Shape =

TextRangeLength Retorna ou define um valor Long que representa o comprimento de um intervalo de texto. Somente leitura.

Dim lngTextRangeLength As Long
lngTextRangeLength = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeLength

TextRangeStart Retorna ou define o início de um intervalo de texto. Somente leitura.

Dim lngTextRangeStart As Long
lngTextRangeStart = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeStart

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).Timing

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

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

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

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