Поделиться через


Метод Selection.Distribute (Visio)

Распределяет три или более выделенных фигур с регулярными интервалами на странице документа. Порядок выбора не имеет значения.

Синтаксис

выражение. Distribute( _Distribute_ , _GlueToGuide_ )

Выражение Переменная, представляющая объект Selection .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Distribute Обязательный VisDistributeTypes Указывает, как распределяются фигуры. Возможные значения см. в разделе Примечания.
GlueToGuide Необязательный Логический Если задано значение True, создает направляющие и приклеивает к ним выбранные фигуры. Если задано значение False, значение не выполняется. Значение по умолчанию — False.

Возвращаемое значение

Отсутствует

Примечания

В VisDistributeTypes в библиотеке типов Visio объявлены следующие возможные значения для параметра Распространение.

Константа Значение Описание
visDistHorzCenter 2 Распределяет фигуры по горизонтали, чтобы их нижние края были равномерно распределены.
visDistHorzLeft 1 Распределяет фигуры по горизонтали, чтобы их левые края были равномерно распределены.
visDistHorzRight 3 Распределяет фигуры по горизонтали, чтобы их правые края были равномерно распределены.
visDistHorzSpace 0 Распределяет фигуры по горизонтали, чтобы между фигурами было равномерное пространство.
visDistVertBottom 7 Распределяет фигуры по вертикали, чтобы их нижние края были равномерно распределены.
visDistVertMiddle 6 Распределяет фигуры по вертикали, чтобы их центры были равномерно распределены.
visDistVertSpace 4 Распределяет фигуры по вертикали, чтобы между фигурами было равномерное пространство.
visDistVertTop 5 Распределяет фигуры по вертикали, чтобы их верхние края были равномерно распределены.

Вызов метода Распространения эквивалентен настройке параметров в диалоговом окне Распределение фигур (на вкладке Главная щелкните Положение, наведите указатель на пункт Пробелы фигуры, а затем выберите Пункт Дополнительные параметры распределения).

Передача true для необязательного аргумента GlueToGuide эквивалентна выбору флажка Создать направляющие и приклеить к ним фигуры в диалоговом окне Распределение фигур .

При передаче True для GlueToGuide Visio создает направляющие для сохранения распределения фигур. Вы можете выбирать и перемещать внешние направляющие, чтобы перемещать фигуры без изменения их распределения.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод Распространения для распределения трех фигур по вертикали, чтобы их правые края равномерно расставляли и приклеивали к направляющим.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.