VBA Powerpoint Démarrer les vidéo automatiquement

Posté le par

Voici un bout de code en vba qui met toutes les vidéos de la présentation en démarrage automatique (par défaut, elles démarrent au clic).

Sub triggerAuto()
Dim counter As Integer
counter = 0
types = ""
For Each s In ActivePresentation.Slides
    For Each ms In s.TimeLine.MainSequence
        'check if it is a media (type = 16)
        If ms.Shape.Type = 16 Then
            'check if it is a video (mediatype = 3)
            If ms.Shape.MediaType = 3 Then
                'set start as automatically
                ms.Timing.TriggerType = msoAnimTriggerAfterPrevious
                counter = counter + 1
            End If
        End If
    Next ms
Next s

MsgBox (counter)
End Sub

Source:

Partagez: