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