本示例添加一段影片。

ActivePresentation.Slides(1).Shapes.AddMediaObject FileName:="C:\WINNT\clock.avi", _
Left:=5, Top:=5, Width:=5, Height:=5