在 Powerpoint VBA 中，如何讓嵌入的視頻開始播放？

Question

我的 Office 365 PowerPoint 演示文稿只有一張幻燈片。 該幻燈片包含一個帶有嵌入（未鏈接，非 OLE）視頻的形狀，該視頻最初是從 .mp4 文件中插入的。 當我點擊它時視頻開始播放，但我需要從 VBA 代碼控制它。 我沒有嘗試過（見下文），當然我沒有收到任何錯誤消息或任何反饋。 如何從代碼開始（和停止）視頻？

Sub PlayVideo(Name)
Set Shape = GetShape(Name)
' Shape.MediaType == ppMediaTypeMovie

With Shape.AnimationSettings
    .Animate = msoTrue
    .AdvanceMode = ppAdvanceOnTime
    .AdvanceTime = 0
    .TextLevelEffect = ppAnimateByAllLevels
    With .PlaySettings
        .PlayOnEntry = msoTrue
        .PauseAnimation = msoFalse
        .LoopUntilStopped = msoTrue
    End With
End With
With Slide.TimeLine.MainSequence
    Set AnimationEffect = .AddEffect(Shape:=Shape, effectid:=msoAnimEffectMediaPlay)
    With AnimationEffect
        Set Behaviour = .Behaviors.Add(msoAnimTypeCommand)
        With Behaviour
            .CommandEffect.Type = msoAnimCommandTypeVerb
            .CommandEffect.Command = "play"
        End With
    End With
End With
End Sub

Answer 1

開始視頻使用

SlideShowWindows(1).View.Player("algorithm panel").Play

停止視頻使用

SlideShowWindows(1).View.Player("algorithm panel").Stop

這是一個例子。 將其粘貼到模塊中。 我的視頻名稱是SAMPLE.mp4

Option Explicit

Sub StartVideo()
    SlideShowWindows(1).View.Player("SAMPLE").Play
End Sub

Sub StopVideo()
    SlideShowWindows(1).View.Player("SAMPLE").Stop
End Sub

接下來在幻燈片中插入 2 個操作按鈕並分配宏

我們完成了。