VBA/Excel/Access/Word/PowerPoint/PowerPoint Slide

Add slides

 
 Sub CreatePresentations()
     Dim intPresentations As Integer
     Dim i As Integer
     intPresentations = 3
     For i = 1 To intPresentations
         Presentations.Add
     Next i
 End Sub

Creating a New Presentation Based on a Template

 
Sub open()
    Presentations.Open FileName:="C:\Capsules.pot", Untitled:=msoTrue
End Sub

Creating a New Presentation Based on the Default Template

 
Sub pre()
    Dim myPresentation As Presentation
    Set myPresentation = Presentations.Add(WithWindow:=msoFalse)
End Sub