This copies a slide from a closed workbook to the active one....
[VBA]Sub Macro1()
Presentations.Open FileName:="F:\Temp\1.ppt", ReadOnly:=msoFalse
ActivePresentation.Slides(1).Copy
With Application.Presentations("1.ppt")
.Saved = True
.Close
End With
ActiveWindow.View.Paste
End Sub[/VBA]