Evento Application.SlideShowNextBuild (PowerPoint)

Ocorre após o clique de mouse ou de animação do intervalo, mas antes do objeto animado se torne visível. .

Sintaxe

expression. SlideShowNextBuild(Wn)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Wn	Obrigatório	SlideShowWindow	A janela ativa da apresentação de slides.

Comentários

Para obter mais informações sobre o uso de eventos com o objeto Application, consulte Como usar eventos com o objeto Application.

Exemplo

Se a forma atual no slide um for um filme, este exemplo reproduz o filme continuamente até ser interrompido manualmente pelo apresentador. Este código foi projetado para ser usado com o segundo exemplo do evento SlideShowNextSlide.

Private Sub App_SlideShowNextBuild(ByVal Wn As SlideShowWindow)

    If EvtCounter <> 0 Then

        With ActivePresentation.Slides(1) _
                .Shapes(shpAnimArray(2, EvtCounter))

            If .Type =msoMedia Then

                If .MediaType = ppMediaTypeMovie

                    .AnimationSettings.PlaySettings _
                        .LoopUntilStopped

                End If

            End If

        End With

    End If

	EvtCounter = EvtCounter + 1

End Sub

	

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.