Designs.Clone (PowerPoint)

Creates a copy of a Design object.

Syntax : expression.Clone (pOriginal, Index)

Dim dsgClone As Design
Set dsgClone = ActivePresentation.Designs.Clone(pOriginal:=)

Arguments

The following argument is required

pOriginal (Design) - Design object. The original design.

The following argument is optional

Index (Long) - The index location in the Designs collection into which the design will be copied. If Index is omitted, the cloned design is added to the end of the Designs collection.