Método ShapeRange.Duplicate (Word)

Cria uma duplicata do objeto ShapeRange especificado, adiciona o novo intervalo de formas à coleção Shapes em um deslocamento padrão das formas originais e retorna um objeto Shape.

Sintaxe

expressão. Duplicar

expressão Obrigatório. Uma variável que representa um objeto ShapeRange.

Exemplo

Este exemplo cria uma duplicata da forma um no documento ativo e altera o preenchimento para a nova forma.

Set newShape = ActiveDocument.Shapes(1).Duplicate 
With newShape 
 .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold 
End With

Confira também

Objeto da coleção ShapeRange

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.