Método ShapeRange.PickUp (Word)
Copia a formatação da forma especificada.
Sintaxe
expressão. Coletor
expressão Obrigatório. Uma variável que representa um objeto ShapeRange.
Comentários
Use o método Apply para aplicar a formatação copiada a outra forma.
Exemplo
Este exemplo copia a formatação da forma um de myDocument e aplica a formatação copiada à forma dois.
Set myDocument = ActiveDocument
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.