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