Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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
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.