Share via

Designs.Clone Method

  • Article
PowerPoint Developer Reference

Creates a copy of a Design object.

Syntax

expression.Clone(pOriginal, Index)

expression   A variable that represents a Designs object.

Parameters

Name Required/Optional Data Type Description
pOriginal Required Design Design object. The original design.
Index Optional 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.

Return Value
Design

Example

This example creates a design and clones the newly created design.

Visual Basic for Applications 
  Sub CloneDesign()
    Dim dsnDesign1 As Design
    Dim dsnDesign2

Set dsnDesign1 = ActivePresentation.Designs _
    .Add(designName:="Design1")

Set dsnDesign2 = ActivePresentation.Designs _
    .<strong>Clone</strong>(pOriginal:=dsnDesign1, Index:=1)



End Sub

See Also