Compartir a través de

Método Selection.Duplicate (Visio)

  • Artículo

Duplica una selección.

Sintaxis

expresión. Duplicado

Expresión Variable que representa un objeto Selection .

Valor devuelto

Selección

Comentarios

El método Duplicate duplica el objeto o la selección especificada y agrega una copia a la misma página del original. Usar el método Duplicate equivale a hacer clic en Duplicar en el menú Pegar en la ficha Inicio.

Cuando se utiliza con un objeto Shape, el método Duplicate duplica la forma.

Cuando se utiliza con un objeto Selection, el método Duplicate duplica la selección.

Ejemplo:

En el ejemplo siguiente se muestra cómo duplicar objetos Shape. El código también es válido para los objetos Selection.

Antes de ejecutar esta macro, asegúrese de que haya una página de dibujo activa en la ventana de 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.