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