Compartir a través de


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

Consulte 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.