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

Add slides

   <source lang="vb">

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

Creating a New Presentation Based on a Template

   <source lang="vb">

Sub open()

   Presentations.Open FileName:="C:\Capsules.pot", Untitled:=msoTrue

End Sub

</source>
   
  

Creating a New Presentation Based on the Default Template

   <source lang="vb">

Sub pre()

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

End Sub

</source>