Если кого-то заинтересует, на всяк случай:  
 
Sub pres()  
Dim objPPoint As New PowerPoint.Application  
Dim objPres As PowerPoint.Presentation  
Dim objSlide As PowerPoint.Slide  
 
With objPPoint  
   .Visible = True  
   .WindowState = ppWindowMaximized  
   Set objPres = objPPoint.Presentations.Add  
End With  
 
Set objSlide = objPres.Slides.Add(1, ppLayoutTitleOnly)  
msoTextureCanvas  
 
Worksheets("List1").Range("A1:D5").Copy  
objPPoint.ActiveWindow.View.Paste  
 
 
End Sub  
 
Нашел у А.Гарнаева  
Предварительно: Tools-References-установить флажок на Microsoft PowerPoint 11.0 Object Library