Événement Application.SlideShowNextBuild (PowerPoint)

Article
04/07/2023

Se produit lors d’un clic de souris ou d’une animation de minutage, mais avant que l’objet animé ne devienne visible. .

Syntaxe

expression. SlideShowNextBuild(Wn)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Wn	Obligatoire	SlideShowWindow	Fenêtre de diaporama active.

Remarques

Pour plus d’informations sur l’utilisation des événements avec l’objet Application, voir Utilisation des événements avec l’objet Application.

Exemple

Si la forme actuelle de la première diapositive est un film, cet exemple lit le film en continu, jusqu’à ce que le présentateur l’arrête manuellement. Ce code est conçu pour être utilisé avec le deuxième exemple de l’événement 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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via