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

Applies the design template named Disaster.pot to a range of slides consisting of the first, fourth, and sixth slides in the active presentation

 
Sub range()
    ActivePresentation.Slides.Range(Array(1, 4, 6)).ApplyTemplate _
        FileName:="C:\Your.pot"
End Sub

Applying a Template to a Presentation, to a Slide, or to a Range of Slides

 
Sub applyTemplate()
    ActivePresentation.Slides(1).ApplyTemplate FileName:= "C:\Clouds.pot"
End Sub

Apply the design template named Mountain Top.pot to the first slide in the presentation named Success.ppt:

 
Sub apply()
    Presentations("Your.ppt").Slides(1).ApplyTemplate FileName:= "C:\Top.pot"
End Sub