Designs.Clone method (PowerPoint)

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.

Sub CloneDesign()

    Dim dsnDesign1 As Design
    Dim dsnDesign2

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

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

End Sub

See also

Designs Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.