Powerpoint VisualBasic Script

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