创建多媒体对象。返回一个代表新多媒体对象的 Shape 对象。
expression.AddMediaObject(FileName, Left, Top, Width, Height)
expression 必选。该表达式返回一个 Shapes 对象。
FileName 必选。String 类型。创建多媒体对象所依据的文件。如果未指定路径，则使用当前工作文件夹。
Left，Top 可选。Single 类型。多媒体对象边界框左上角相对于文档左上角的位置，以磅为单位。
Width，Height 可选。Single 类型。多媒体对象边界框的宽度和高度，以磅为单位。
本示例向 myDocument添加名为“Clock.avi”的影片。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddMediaObject FileName:="C:\WINNT\clock.avi", _
Left:=5, Top:=5, Width:=100, Height:=100