How to copy designs from one presentation to another

If you make use of ApplyTemplate method to apply a design from a template or presentation containing more than one design, it will copy only the first design.This snippet illustrates how to make use of the clone method to copy all the designs.

Sub CopyDesigns()
Dim oSourceDesigns As Presentation
Dim I As Integer
Set oSourceDesigns = Presentations.Open("K:\Docs\main.pot", , , False)
For I = 1 To oSourceDesigns.Designs.Count
    ActivePresentation.Designs.Clone oSourceDesigns.Designs(I)
Next I
oSourceDesigns.Close
Set oSourceDesigns = Nothing
End Sub