Método Shape.Duplicate (Publisher)

Cria um duplicado do objeto Shape ou ShapeRange especificado, adiciona a nova forma ou intervalo de formas à coleção Formas imediatamente após a forma ou intervalo de formas especificada originalmente e, em seguida, devolve 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.