Метод ShapeRange.Distribute (Word)

Статья
04/07/2023

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

Синтаксис

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

выражение (обязательно). Переменная, представляющая объект ShapeRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Distribute	Обязательный	MsoDistributeCmd	Указывает, следует ли распределять фигуры по горизонтали или по вертикали.
RelativeTo	Обязательный	Long	Значение true для равномерного распределения фигур по всему горизонтальному или вертикальному пространству на странице. Значение false , чтобы распределить их в пределах горизонтального или вертикального пространства, которое изначально занимает диапазон фигур.

Замечания

Вы можете указать, нужно ли распределять фигуры по горизонтали или по вертикали, а также на всю страницу или пространство, которое они изначально занимают.

Пример

В этом примере определяется диапазон фигур, который содержит все автофигуры активного документа, а затем горизонтально распределяет фигуры в этом диапазоне.

With ActiveDocument.Shapes 
 numShapes = .Count 
 If numShapes > 1 Then 
 numAutoShapes = 0 
 ReDim autoShpArray(1 To numShapes) 
 For i = 1 To numShapes 
 If .Item(i).Type = msoAutoShape Then 
 numAutoShapes = numAutoShapes + 1 
 autoShpArray(numAutoShapes) = .Item(i).Name 
 End If 
 Next 
 If numAutoShapes > 1 Then 
 ReDim Preserve autoShpArray(1 To numAutoShapes) 
 Set asRange = .Range(autoShpArray) 
 asRange.Distribute msoDistributeHorizontally, False 
 End If 
 End If 
End With

См. также

Объект коллекции ShapeRange

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

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