如何使用VBA在Powerpoint中嵌入视频？

Question

我正在尝试使用VBA将视频（同时具有mp4和wmv格式的视频）添加到演示文稿的第一张幻灯片中，但是我不断收到错误消息：“请求无效。Powerpoint无法打开文件。”

该代码是从在线来源复制的，但是我尝试对其进行几次修改，但均未成功。

    Dim oSh As Shape
    Set oSl = ActivePresentation.Slides(1)

    With oSl
        Set oSh = .Shapes.AddMediaObject(FileName:="20-minute-timer.wmv", _
            Left:=0, _
            Top:=0, _
            Width:=ActivePresentation.PageSetup.SlideWidth, _
            Height:=ActivePresentation.PageSetup.SlideHeight)
    End With

视频文件与ppt文件位于同一目录中，并且我尝试了排除文件扩展名。我也尝试过使用.AddOEMObject方法。我不太确定该从哪里去。