Método Page.Paste (Visio)
Cola o conteúdo da Área de Transferência em um objeto.
Sintaxe
expressão. Colar (Sinalizadores)
Expressão Uma variável que representa um objeto Page .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Flags | Opcional | Variant | Determina como as formas são traduzidas durante a operação de colar. |
Valor de retorno
Nada
Comentários
O método Paste funciona apenas com objetos Shape que sejam formas de grupo. Use a propriedade Type de uma forma para determinar se trata-se de um grupo.
Os possíveis valores de Flags são declarados pela biblioteca de tipos do Visio em VisCutCopyPasteCodes e são descritos na tabela a seguir.
| Flag | Valor | Descrição |
|---|---|---|
| visCopyPasteNormal | &H0 | Segue o comportamento padrão de cópia. |
| visCopyPasteNoTranslate | &H1 | Copia formas para as localizações de coordenadas originais. |
| visCopyPasteCenter | &H2 | Copia formas para o centro da página. |
| visCopyPasteNoHealConnectors | &H4 | Não limpa conectores anexados a formas cortadas. |
| visCopyPasteNoContainerMembers | &H8 | Não corta e cola membros não selecionados de contêineres ou listas. |
| visCopyPasteNoAssociatedCallouts | &H16 | Não corta e cola textos explicativos não selecionados associados a formas. |
| visCopyPasteDontAddToContainers | &H32 | Não adiciona formas coladas a contêineres subjacentes. |
| visCopyPasteNoCascade | &H64 | Não desloca formas na cópia. |
A definição de Flags como visCopyPasteNormal equivale ao comportamento na interface do usuário. Você deve usar visCopyPasteNormal e os outros sinalizadores de forma consistente. Por exemplo, se você utilizar o valor visCopyPasteNoTranslate para copiar, deve usá-lo também para colar, pois essa é a única maneira de garantir que as formas sejam coladas nas suas localizações de coordenadas originais.
Se precisar controlar o formato das informações coladas e (opcionalmente) estabelecer um vínculo com um arquivo de origem (por exemplo, um documento do Microsoft Word), use o método PasteSpecial.
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método Paste. Ela desenha um retângulo, o copia e cola a cópia na página de desenho.
Public Sub Paste_Example()
Dim vsoShape As Visio.Shape
'Draw a rectangle.
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Copy the shape to the Clipboard.
vsoShape.Copy
'Paste the copy onto the drawing page.
ActivePage.Paste
End Sub
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.