Propiedad Window.Selection (Visio)

Devuelve un objeto Selection que representa los elementos que están seleccionados actualmente en la ventana, o asigna una selección creada por el método CreateSelection a un objeto Selection. Lectura y escritura.

Sintaxis

expresión. Selección

Expresión Variable que representa un objeto Window .

Valor devuelto

Selección

Comentarios

El objeto Selection es independiente de la selección mostrada en la ventana, que puede cambiar posteriormente como consecuencia de las acciones del usuario.

Un objeto Selection es un conjunto de formas que comparten un contexto común en el que se pueden realizar acciones. Un objeto Selection es algo más que formas seleccionadas en la ventana de dibujo. Una vez establecido o recuperado el objeto Selection, puede cambiar el conjunto de formas que representa utilizando el método Select.

Después de usar el método CreateSelection para crear la selección, puede usar la propiedad Selection para ver la selección recién creada en la ventana de dibujo de Microsoft Visio. Vea el segundo ejemplo siguiente.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad Selection para obtener todas las formas seleccionadas en la ventana.

Public Sub Selection_Example() 
 
 Const MAX_SHAPES = 6 
 Dim vsoShapes(1 To MAX_SHAPES) As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 Dim intCounter As Integer 
 
 'Draw six rectangles. 
 For intCounter = 1 To MAX_SHAPES 
 Set vsoShapes(intCounter) = ActivePage.DrawRectangle(intCounter, intCounter + 1, intCounter + 1, intCounter) 
 Next intCounter 
 
 'Deselect all the shapes in the active window. 
 ActiveWindow.DeselectAll 
 
 'Select all the shapes in the active window. 
 ActiveWindow.SelectAll 
 
 'Get the selected shapes and assign them to a Selection object. 
 Set vsoSelection = ActiveWindow.Selection 
 
End Sub

Esta macro de VBA muestra cómo utilizar el método CreateSelection para seleccionar todas las formas de una capa determinada. A continuación, usa la propiedad Selection para mostrar la selección en la ventana de dibujo de Visio.

Antes de ejecutar esta macro, cree dos capas en el dibujo, una denominada "a" y otra denominada "b" y, a continuación, agregue formas a ambas capas.

Public Sub Selection_Example_2() 
 
 Dim vsoLayer As Layer 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoLayer = ActivePage.Layers.ItemU("a") 
 Set vsoSelection = ActivePage.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, VsoLayer) 
 
 Application.ActiveWindow.Selection = vsoSelection 
 
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.