Creates a media object. Returns a Shape object that represents the new media object.
expression.AddMediaObject(FileName, Left, Top, Width, Height)
expression Required. An expression that returns a Shapes object.
FileName Required String. The file from which the media object is to be created. If the path isn't specified, the current working folder is used.
Left , Top Optional Single. The position (in points) of the upper-left corner of the media object's bounding box relative to the upper-left corner of the document.
Width , Height Optional Single. The width and height of the media object's bounding box, in points.
Example
This example adds the movie named "Clock.avi" to myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddMediaObject FileName:="C:\WINNT\clock.avi", _
Left:=5, Top:=5, Width:=100, Height:=100