Método Designs.Clone (PowerPoint)

Crea una copia del objeto Design.

Sintaxis

expresión. Clone( _pOriginal_, _Index_ )

expresión Variable que representa un objeto Designs .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
pOriginal	Obligatorio	Design	Objeto Design. El diseño original.
Index	Opcional	Long	La ubicación del índice en la colección Designs a la que se copia el diseño. Si se omite Index, el diseño copiado se agrega al final de la colección Designs.

Valor devuelto

Diseño

Ejemplo

En este ejemplo se crea un diseño nuevo y, a continuación, se clona dicho diseño.

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

Vea también

Objeto Designs

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.