Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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