-- Jim
' Assuming the presentation has multiple masters. To assign the 2nd template
to the 2nd slide.
With ActivePresentation
.Slides(2).Design = .Designs(2)
End With
' To assign the 3rd template to a slide range
With ActivePresentation
.Slides.Range(Array(1, 3)).Design = .Designs(3)
End With
Note that if a particular design ceases to be used by any of the slides, it
will be removed from the presentation masters.
--
Regards
Shyam Pillai
Shyam's Toolbox for PowerPoint
http://www.mvps.org/skp/toolbox
"Jim" <j...@help.com> wrote in message
news:00b901c2b234$a14bad10$8af82ecf@TK2MSFTNGXA03...