Как вы вставляете видео в PowerPoint, используя VBA? - PullRequest
Новая
       74

Как вы вставляете видео в PowerPoint, используя VBA?

0 голосов
/ 20 июня 2019

Я пытаюсь добавить видео (у меня оно есть как в формате mp4, так и в формате wmv) к первому слайду презентации с использованием VBA, но постоянно получаю сообщение об ошибке: «Неверный запрос. 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 вместо этого.Я не совсем уверен, куда идти отсюда.

...