Método ShapeRange.Duplicate (PowerPoint)

Artigo
04/07/2023

Cria uma duplicata do objeto ShapeRange especificado, adiciona o intervalo de formas à coleção Shapes e, em seguida, retorna o 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 ShapeRange .

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 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.

Partilhar via