OfficeTips Home || VBA Section || General Section || Download Section || Privacy Policy

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

 


Copyright 1999-2018 (c) Shyam Pillai. All rights reserved.