本示例在 myDocument 中添加一个图片,插入的图片被链接到创建该图片所依据的文件并与 myDocument 一起保存。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPicture FileName:="c:\c.bmp", LinkToFile:=ksoTrue, SaveWithDocument:=ksoTrue, _
    Left:=100, Top:=100, Width:=70, Height:=70