Compartilhar via

Método Shape.Duplicate (Publisher)

  • Artigo

Cria uma duplicata do objeto Shape ou ShapeRange especificado, adiciona a nova forma ou intervalo de formas à coleção Shapes imediatamente após a forma ou intervalo de formas especificadas originalmente e retorna o novo objeto Shape ou ShapeRange .

Sintaxe

expressão. Duplicar

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

Valor de retorno

Forma

Exemplo

Este exemplo adiciona uma página nova em branco ao final da publicação ativa, adiciona uma forma de diamante à nova página, duplica o diamante e, em seguida, define as propriedades da duplicata. O primeiro diamante terá a cor de preenchimento padrão do esquema de cores ativo; o segundo diamante estará deslocado em relação ao primeiro e terá a primeira cor de destaque do esquema de cores ativo.

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

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.