Método ShapeRange.PickUp (PowerPoint)
Copia a formatação da forma especificada. Use o método Apply para aplicar a formatação copiada a outra forma.
Sintaxe
expressão. Coletor
Expressão Uma variável que representa um objeto ShapeRange .
Exemplo
Este exemplo copia a formatação da forma um de myDocument e aplica a formatação copiada à forma dois.
Set myDocument = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With
Confira também
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.