Evento Application.SlideShowNextSlide (PowerPoint)

Ocorre imediatamente antes da transição para o próximo slide. Para o primeiro slide, ocorre imediatamente depois do evento SlideShowBegin.

Sintaxe

expression. SlideShowNextSlide(Wn)

Expressão Uma expressão que retorna um objeto Application .

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

Este exemplo determina a posição do slide para o slide que segue o evento SlideShowNextSlide. Se o próximo slide for o slide três, o exemplo altera o tipo de ponteiro para uma caneta e a cor da caneta para vermelho.

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)



   Dim Showpos As Integer



   Showpos = Wn.View.CurrentShowPosition + 1

If Showpos = 3 Then  

         With ActivePresentation.SlideShowSettings.Run.View

            .PointerColor.RGB = RGB(255, 0, 0)

            .PointerType = ppSlideShowPointerPen

         End With

      Else

         With ActivePresentation.SlideShowSettings.Run.View

            .PointerColor.RGB = RGB(0, 0, 0)

            .PointerType = ppSlideShowPointerArrow

         End With

      End If

End Sub

Este exemplo define uma variável contadora global como zero. Em seguida, calcula o número de formas no slide que sucede este evento, determina as formas que têm animação, e preenche uma matriz global com a ordem da animação e o número de cada forma.

Observação

[!OBSERVAçãO] A matriz criada neste exemplo também é usada no exemplo do evento SlideShowNextBuild.

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)



   Dim i as Integer, j as Integer, numShapes As Integer

   Dim objSld As Slide



   Set objSld = ActivePresentation.Slides _
        (ActivePresentation.SlideShowWindow.View _
        .CurrentShowPosition + 1)

      With objSld.Shapes

         numShapes = .Count

         If numShapes > 0 Then

            j = 1

            ReDim shpAnimArray(1 To 2, 1 To numShapes)

            For i = 1 To numShapes

               If .Item(i).AnimationSettings.Animate Then

                  shpAnimArray(1, j) = _
                     .Item(i).AnimationSettings.AnimationOrder

                     shpAnimArray(2, j) = i

                     j = j + 1

               End If

            Next

         End If

      End With

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.