Compartilhar via

Método Shape.Duplicate (Visio)

  • Artigo

Duplica um objeto.

Sintaxe

expressão. Duplicar

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

Forma

Comentários

O método Duplicate duplica o objeto ou a seleção especificada e adiciona uma cópia à mesma página do original. Usar o método Duplicate equivale a clicar em Duplicar no menu Colar da guia Página Inicial.

Quando usado com um objeto Shape, o método Duplicate duplica a forma.

Quando usado com um objeto Selection, o método Duplicate duplica a seleção.

Exemplo

O exemplo a seguir mostra como duplicar objetos Shape. O código também funciona para objetos Selection.

Antes de executar esta macro, certifique-se de que uma página de desenho esteja ativa na janela do Microsoft Visio.

 
Public Sub Duplicate_Example() 
 
 Dim vsoOriginalShape As Visio.Shape 
 Dim vsoDuplicateShape As Visio.Shape 
 
 Set vsoOriginalShape = ActivePage.DrawLine(1, 1, 5, 5) 
 
 Set vsoDuplicateShape = vsoOriginalShape.Duplicate 
 vsoDuplicateShape.Cells("BeginY") = "2" 
 
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.