Compartir a través de


Evento Application.SlideShowNextBuild (PowerPoint)

Se produce al hacer clic o intervalos de animación, pero antes de que sea visible el objeto animado. .

Sintaxis

expresión. SlideShowNextBuild(Wn)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Wn Obligatorio SlideShowWindow Ventana de presentación con diapositivas activa.

Comentarios

Para obtener información sobre cómo usar eventos con el objeto Application, vea Procedimiento para usar eventos con el objeto Application.

Ejemplo:

Si la forma actual de la diapositiva uno es una película, este ejemplo reproduce la película continuamente hasta que el moderador detenga manualmente. Este código está diseñado para usarse con el segundo ejemplo del 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

	

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.