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