Compartir a través de

Método Selection.AddToGroup (Visio)

  • Artículo

Agrega las formas seleccionadas al grupo seleccionado.

Sintaxis

expresión. AddToGroup

Expresión Variable que representa un objeto Selection .

Valor devuelto

Nothing

Comentarios

La selección actual debe contener las formas que se van a agregar y el grupo al que se van a agregar las formas. El grupo debe ser la selección principal o el único grupo en la selección.

Ejemplo:

La macro siguiente muestra cómo utilizar el método AddToGroup para agregar las formas seleccionadas al grupo seleccionado.

Antes de ejecutar esta macro, abra la galería de símbolos Formas básicas o un documento basado en la plantilla Diagrama básico.

 
Public Sub AddToGroup_Example() 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Square"), 3, 8 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Pentagon"), 4, 8 
 
 Application.ActiveWindow.SelectAll 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Pentagon"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Square"), visSelect 
 ActiveWindow.Selection.Group 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Ellipse"), 5, 6 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Ellipse"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Sheet.3"), visSelect 
 ActiveWindow.Selection.AddToGroup 
 
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.