Método Designs.Clone (PowerPoint)

Artigo
04/07/2023

Cria uma cópia de um objeto Design.

Sintaxe

expressão. Clone( _pOriginal_, _Index_ )

Expressão Uma variável que representa um objeto Designs .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
pOriginal	Obrigatório	Design	Objeto Design. O design original.
Index	Opcional	Long	O local do índice na coleção Designs no qual o design será copiado. Se o índice for omitido, o design clonado será adicionado ao final da coleção Designs.

Valor de retorno

Design

Exemplo

Este exemplo cria um design e faz a clonagem do design recém-criado.

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

Confira também

Objeto designs

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via