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

   <source lang="vb">

Sub range()

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

End Sub

</source>
   
  

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

   <source lang="vb">

Sub applyTemplate()

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

End Sub

</source>
   
  

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

   <source lang="vb">

Sub apply()

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

End Sub

</source>