Compartilhar via


Método Shape.Duplicate (PowerPoint)

Cria uma duplicata do objeto Shape especificado, adiciona a nova forma à coleção Shapes e, em seguida, retorna um novo objeto ShapeRange. Os objetos duplicados são colocados no final da coleção Shapes.

Sintaxe

expressão. Duplicar

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

Valor de retorno

ShapeRange

Exemplo

Este exemplo adiciona um novo slide vazio ao final da apresentação ativa, adiciona uma forma de losango ao novo slide, duplica o losango e, em seguida, define propriedades para a duplicata. O primeiro losango terá a cor de preenchimento padrão para o esquema de cores ativo; o segundo losango será deslocado do primeiro e terá a cor de sombreamento padrão.

Set mySlides = ActivePresentation.Slides

Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)

Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)

With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With

Confira também

Objeto Shape

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.