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