Creating a New Presentation Based on the Default Template
Sub pre() Dim myPresentation As Presentation Set myPresentation = Presentations.Add(WithWindow:=msoFalse) End Sub