Método Selection.Distribute (Visio)
Distribuye tres o más formas seleccionadas a intervalos regulares en la página de dibujo. El orden de la selección es irrelevante.
Sintaxis
expresión. Distribute( _Distribute_ , _GlueToGuide_ )
Expresión Variable que representa un objeto Selection .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Distribuir | Obligatorio | VisDistributeTypes | Especifica cómo se distribuyen las formas. Vea la sección Comentarios para obtener los posibles valores. |
| GlueToGuide | Opcional | Boolean | Si su valor es True, crea guías y pega las formas seleccionadas a esa guía. Si su valor es False, no lo hace. Valor predeterminado es False. |
Valor devuelto
Nothing
Comentarios
Los siguientes valores posibles para Distribute se declaran en VisDistributeTypes en la biblioteca de tipos de Visio.
| Constante | Valor | Descripción |
|---|---|---|
| visDistHorzCenter | 2 | Distribuye las formas horizontalmente de modo que sus bordes inferiores tengan un espaciado uniforme. |
| visDistHorzLeft | 1 | Distribuye las formas horizontalmente de modo que sus bordes izquierdos tengan un espaciado uniforme. |
| visDistHorzRight | 3 | Distribuye las formas horizontalmente de modo que sus bordes derechos tengan un espaciado uniforme. |
| visDistHorzSpace | 0 | Distribuye las formas horizontalmente de modo que haya un espacio uniforme entre las formas. |
| visDistVertBottom | 7 | Distribuye las formas verticalmente de modo que sus bordes inferiores tengan un espaciado uniforme. |
| visDistVertMiddle | 6 | Distribuye las formas verticalmente de modo que sus centros tengan un espaciado uniforme. |
| visDistVertSpace | 4 | Distribuye las formas verticalmente de modo que haya un espacio uniforme entre las formas. |
| visDistVertTop | 5 | Distribuye las formas verticalmente de modo que sus bordes superiores tengan un espaciado uniforme. |
Llamar al método Distribute equivale a las opciones de configuración del cuadro de diálogo Distribuir formas (en la pestaña Inicio , haga clic en Posición, seleccione Formas de espacioy, a continuación, haga clic en Más opciones de distribución).
Pasar el valor True para el argumento opcional GlueToGuide equivale a activar la casilla de verificación Crear guías y pegarles las formas en el cuadro de diálogo Distribuir formas.
Cuando se pasa True para GlueToGuide, Visio crea guías para conservar la distribución de las formas. Se pueden seleccionar y mover las guías exteriores para mover las formas sin que cambie su distribución.
Ejemplo:
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método Distribute para distribuir verticalmente tres formas de modo que sus bordes derechos se distribuyan de manera uniforme y se peguen a las guías.
Public Sub Distribute_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoShape3 As Visio.Shape
Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7)
Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5)
Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2)
ActiveWindow.DeselectAll
ActiveWindow.Select vsoShape1, visSelect
ActiveWindow.Select vsoShape2, visSelect
ActiveWindow.Select vsoShape3, visSelect
Application.ActiveWindow.Selection.Distribute visDistVertRight, True
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.