Classe SlideShowTransition (PowerPoint VBA)
Contém informações sobre como o slide especificado é avançado durante uma apresentação de slides.
Para usar uma variável de classe SlideShowTransition, ela primeiro precisa ser instanciada por exemplo
Dim sst as SlideShowTransition
Set sst = ActivePresentation.SlideMaster.SlideShowTransition
Os procedimentos a seguir podem ser usados para definir variáveis do tipo SlideShowTransition: CustomLayout.SlideShowTransition, Master.SlideShowTransition, Slide.SlideShowTransition e SlideRange.SlideShowTransition.
AdvanceOnClick
Determina se o slide especificado avançará quando houver um clique sobre ele durante uma apresentação de slides. Leitura/gravação.
Para definir o slide para avançar automaticamente após um determinado período de tempo decorrido, defina a propriedade AdvanceOnTime como true e defina a Propriedade AdvanceTime como a quantidade de tempo que você deseja que o slide seja mostrado. Se você definir as propriedades AdvanceOnClick e AdvanceOnTime como true, o slide avançará quando for clicado ou quando o tempo especificado tiver decorrido—o que vier primeiro. O valor da propriedade AdvanceOnClick pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.AdvanceOnClick = msoTrue
AdvanceOnTime
Determina se o slide especificado avançará automaticamente após haver decorrido um período de tempo especificado. Leitura/gravação.
Use a Propriedade AdvanceTime para especificar o número de segundos após os quais o slide avançará automaticamente. Defina a propriedade AdvanceMode do objeto SlideShowSettings como ppSlideShowUseSlideTimings para colocar as configurações de intervalo de slide em vigor para a apresentação de slides inteira. O valor da propriedade AdvanceOnTime pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.AdvanceOnTime = msoTrue
AdvanceTime
Retorna ou define a quantidade de tempo, em segundos, após a qual a transição do slide especificado ocorrerá. Leitura/gravação.
Para colocar as configurações de intervalo de slide em vigor para a apresentação de slides inteira , defina a propriedade AdvanceMode do objeto SlideShowSettings como ppSlideShowUseSlideTimings.
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.AdvanceTime = 5
Duration
Retorna ou define a duração de uma animação, em segundos. Leitura/gravação.
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.Duration = 5
EntryEffect
Retorna ou define o efeito especial aplicado à transição de slides especificada. Leitura/gravação. Aqui você pode encontrar os valores possíveis para
Se a propriedade TextLevelEffect para a forma especificada estiver definida como ppAnimateLevelNone (o valor padrão) ou a propriedade Animate estiver definida como false, você não verá o efeito especial que aplicou com o **EntryEffect **propriedade.
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.EntryEffect = ppEffectAirplaneLeft
Hidden
Determina se o slide especificado estará oculto durante uma apresentação de slides. Leitura/gravação.
O valor da propriedade Hidden pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.Hidden = msoTrue
LoopSoundUntilNext
Especifica se o som definido para a transição de slides especificada entrará em loop até o próximo som se iniciar. Leitura/gravação.
O valor da propriedade LoopSoundUntilNext pode ser uma destas constantes MsoTriState .
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.LoopSoundUntilNext = msoTrue
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).SlideShowTransition.SoundEffect
Speed
Representa a velocidade da transição para o slide especificado. Leitura/gravação. Os valores de retorno possíveis são ppTransitionSpeedFast - Rápida, ppTransitionSpeedMedium - Média, ppTransitionSpeedMixed - Mista, ppTransitionSpeedSlow - Lenta.
O valor da propriedade Speed pode ser uma destas constantes PpTransitionSpeed .
ActiveWindow.Selection.SlideRange(1).SlideShowTransition.Speed = ppTransitionSpeedFast