Если вы хотите встроить файл, вы можете использовать следующий код, чтобы добавить новую фигуру, содержащую видео, и скрыть ее.
Dim shape As shape
Set shape = Slide.Shapes.AddMediaObject(videofile, 0, 0, -1, -1)
shape.Visible = msoFalse
Однако позже может быть сложно получить видеофайл.См. Как экспортировать видео из Powerpoint 2010 и VBA. Экспорт встроенного видео из презентации Powerpoint .
. Или вы можете прочитать видеоданные и сохранить их в виде слайда или в форме.тег, который может быть излишним в зависимости от того, чего вы пытаетесь достичь.
Конечно, вы можете скопировать видеофайл в тот же каталог, что и файл PPT, но он будет потерян, если вы переместите файл PPT или отправитеэто по почте и т. д.