本示例在活动演示文稿的第二张幻灯片插入一个图片的 OLE 对象。

Set myDocument = ActivePresentation.Slides(2)
myDocument.Shapes.AddOLEObject Left:=100,Top:=100, _
    Width:=200, Height:=300, _
        FileName:="c:\Kingsoft.jpg"