Classe EffectInformation (PowerPoint VBA)

A classe EffectInformation representa diversas opções de animação para um objeto Effect.

Set

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

Dim ein as EffectInformation
Set ein = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).EffectInformation

As variáveis ​​de classe EffectInformation podem ser definidas usando o procedimento Effect.EffectInformation.

AfterEffect

Retorna uma constante PpAfterEffect que indica se um pós-efeito aparece esmaecido, oculto ou inalterado após ser executado. Somente leitura.

Os valores possíveis são msoAnimAfterEffectDim - Esmaecido, msoAnimAfterEffectHide - Oculto, msoAnimAfterEffectHideOnNextClick - Oculto no próximo clique do mouse, msoAnimAfterEffectMixed - Misto, msoAnimAfterEffectNone - Inalterado.

O valor retornado pela propriedade aftereffect pode ser uma destas constantes PpAfterEffect .

Dim maaAfterEffect As MsoAnimAfterEffect
maaAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AfterEffect

AnimateBackground

Retorna msoTrue se o efeito especificado for uma animação de plano de fundo. Somente leitura.

Use as propriedades TextLevelEffecte TextUnitEffect para controlar a animação do texto anexado à forma especificada. Se essa propriedade for definida como msoTrue e a propriedade TextLevelEffect for definida como ppAnimateByAllLevels, a forma e seu texto serão animados simultaneamente. Se essa propriedade for definida como msoTrue e a propriedade TextLevelEffect for definida como algo diferente de ppAnimateByAllLevels, a forma será animada imediatamente antes que o texto será animado. Você não verá os efeitos da definição dessa propriedade, a menos que a forma especificada será animada. Para que uma forma seja animada, a propriedade TextLevelEffect da forma deve ser definida como algo diferente de ppAnimateLevelNone, e a propriedade Animate deve ser definida como msoTrueou a propriedade EntryEffect deve ser definido como uma constante diferente de ppEffectNone. O valor retornado pela propriedade AnimateBackground pode ser uma destas constantes MsoTriState .

Dim mtsAnimateBackground As Office.MsoTriState
mtsAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AnimateBackground

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.

O valor da propriedade AnimateTextInReverse Property pode ser uma destas constantes MsoTriState .

Dim mtsAnimateTextInReverse As Office.MsoTriState
mtsAnimateTextInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.AnimateTextInReverse

BuildByLevelEffect

Determina o nível do efeito de criação da animação. Somente leitura.

Os valores possíveis são msoAnimateChartAllAtOnce - Animar o gráfico todo ao mesmo tempo, msoAnimateChartByCategory - Animar gráfico por categoria, msoAnimateChartByCategoryElements - Animar gráfico por elementos de categoria, msoAnimateChartBySeries - Animar gráfico por série, msoAnimateChartBySeriesElements - Animar gráfico por elementos de série, msoAnimateDiagramAllAtOnce - Animar diagrama todo ao mesmo tempo, msoAnimateDiagramBreadthByLevel - Animar amplitude do diagrama por nível, msoAnimateDiagramBreadthByNode - Animar amplitude do diagrama por nó, msoAnimateDiagramClockwise - Animar diagrama no sentido horário, msoAnimateDiagramClockwiseIn - Animar diagrama entrando no sentido horário, msoAnimateDiagramClockwiseOut - Animar diagrama saindo no sentido horário, msoAnimateDiagramCounterClockwise - Animar diagrama no sentido anti-horário, msoAnimateDiagramCounterClockwiseIn - Animar diagrama entrando no sentido anti-horário, msoAnimateDiagramCounterClockwiseOut - Animar diagrama saindo no sentido anti-horário, msoAnimateDiagramDepthByBranch - Animar profundidade do diagrama por ramo, msoAnimateDiagramDepthByNode - Animar profundidade do diagrama por nó, msoAnimateDiagramDown - Animar diagrama para baixo, msoAnimateDiagramInByRing - Animar diagrama entrando com anel, msoAnimateDiagramOutByRing - Animar diagrama saindo com anel, msoAnimateDiagramUp - Animar diagrama para cima, msoAnimateLevelMixed - Animar nível misto, msoAnimateLevelNone - Animar nenhum nível, msoAnimateTextByAllLevels - Animar texto em todos os níveis, msoAnimateTextByFifthLevel - Animar texto no quinto nível, msoAnimateTextByFirstLevel - Animar texto no primeiro nível, msoAnimateTextByFourthLevel - Animar texto no quarto nível, msoAnimateTextBySecondLevel - Animar texto no segundo nível, msoAnimateTextByThirdLevel - Animar texto no terceiro nível.

O valor retornado pela propriedade BuildByLevelEffect pode ser uma destas constantes MsoAnimateByLevel .

Dim mabBuildByLevelEffect As MsoAnimateByLevel
mabBuildByLevelEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.BuildByLevelEffect

Dim

Retorna um objeto ColorFormat que representa a cor a esmaecer depois que uma animação é concluída.

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

Parent

Retorna o objeto parente para o objeto especificado.

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 = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.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 = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation.SoundEffect

TextUnitEffect

Indica se o texto na forma especificada é animado parágrafo por parágrafo, palavra por palavra ou letra por letra. Somente leitura.

Os valores possíveis são msoAnimTextUnitEffectByCharacter - Por caractere, msoAnimTextUnitEffectByParagraph - Por parágrafo, msoAnimTextUnitEffectByWord - Por palavra, msoAnimTextUnitEffectMixed - Efeito misto.

O valor da propriedade TextUnitEffect pode ser uma destas constantes MsoAnimTextUnitEffect .

Dim matTextUnitEffect As MsoAnimTextUnitEffect
matTextUnitEffect = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).EffectInformation.TextUnitEffect