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>