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
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.