Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Applies the design template named Disaster pot to a range of slides consisting of the first, fourth, and sixth slides in the ac

Sub range()     ActivePresentation.Slides.Range(Array(1, 4, 6)).ApplyTemplate _         FileName:="C:\Your.pot" End Sub