Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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