Método Page.Paste (Visio)

  • Artigo

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.