VBA/Excel/Access/Word/PowerPoint/PowerPoint

Adding a Slide to a Presentation

   <source lang="vb">

Sub add()

   Dim mySlide As Slide
   Set mySlide = ActivePresentation.Slides.Add(Index:=1, _
       Layout:=ppLayoutTitle)

End Sub

</source>
   
  

Closing a Presentation

   <source lang="vb">

Sub close()

   ActivePresentation.Close

End Sub

</source>
   
  

To avoid the user being prompted, set the Saved property of the Presentation object to True before using the Close method-for example:

   <source lang="vb">

Sub save()

   With Presentations("Your PPT.ppt")
       .Saved = True
       .Close
   End With

End Sub

</source>