Classe AnimationSettings (PowerPoint VBA)

A classe AnimationSettings representa os efeitos especiais aplicados à animação da forma especificada durante uma apresentação de slides.

Set

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

Dim ass as AnimationSettings
Set ass = ActiveWindow.RangeFromPoint.AnimationSettings

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo AnimationSettings: Shape.AnimationSettings e ShapeRange.AnimationSettings

Propriedades

AdvanceMode Retorna ou define um valor que indica se a animação da forma especificada somente avançará quando houver um clique sobre ela ou automaticamente, após um período de tempo especificado. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AdvanceMode = ppAdvanceModeMixed

AdvanceTime Retorna ou define o tempo, segundos, depois do qual a forma especificada se tornará animada. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AdvanceTime = 5

AfterEffect Retorna ou define uma constante de PpAfterEffect que indica se a forma especificada aparece esmaecida, oculta ou inalterada após sua construção. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AfterEffect = ppAfterEffectDim

Animate Determina se a forma especificada será animada durante uma apresentação de slides. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.Animate = msoTrue

AnimateBackground Se o objeto especificado for uma AutoForma, especifica se a forma será animada separadamente do texto que contém. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimateBackground = msoTrue

AnimateTextInReverse Determina se a forma especificada foi construída de maneira inversa. Se aplica somente às formas como as formas contendo listas que podem ser construídas em mais de uma etapa. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimateTextInReverse = msoTrue

AnimationOrder Retorna ou define um número inteiro que represente a posição da forma especificada dentro da coleção de formas a ser animada. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimationOrder = 2

ChartUnitEffect Retorna ou define um valor indicando se o intervalo do gráfico é animado por sequência, categoria ou elemento. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.ChartUnitEffect = ppAnimateByCategory

DimColor Retorna ou define um objeto ColorFormat que representa a cor da forma especificada depois desta ter sido composta. Somente leitura.

Dim cftDimColor As ColorFormat
Set cftDimColor = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.DimColor

EntryEffect Para o objeto AnimationSettings , essa propriedade retorna ou define o efeito especial aplicado à animação da forma especificada. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.EntryEffect = ppEffectAirplaneLeft

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.AnimationSettings.Parent

PlaySettings Retorna um objeto PlaySettings que contém informações sobre como o clipe de mídia especificado é executado durante uma apresentação de slides. Somente leitura.

Dim pssPlaySettings As PlaySettings
Set pssPlaySettings = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.PlaySettings

SoundEffect Retorna um objeto SoundEffect que representa o som a ser executado durante a transição para o slide especificado. Somente leitura.

Dim setSoundEffect As SoundEffect
Set setSoundEffect = ActivePresentation.Slides(2).Shapes(2).AnimationSettings.SoundEffect

TextLevelEffect Indica se o texto da forma especificada será animado por parágrafos do primeiro nível, do segundo nível ou de algum outro nível de parágrafos até parágrafos do quinto nível. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.TextLevelEffect = ppAnimateByAllLevels

TextUnitEffect Indica se o texto na forma especificada é animado parágrafo por parágrafo, palavra por palavra ou letra por letra. Leitura/gravação.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.TextUnitEffect = ppAnimateByCharacter