Метод ShapeRange. распределить (Word)ShapeRange.Distribute method (Word)

Равномерно распределяет фигуры в указанном диапазоне фигур.Evenly distributes the shapes in the specified range of shapes. ..

СинтаксисSyntax

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

выражение (обязательно).expression Required. Переменная, представляющая объект ShapeRange .A variable that represents a ShapeRange object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
DistributeDistribute ОбязательнаRequired MsoDistributeCmdMsoDistributeCmd Указывает, следует ли распределить фигуры по горизонтали или по вертикали.Specifies whether to distribute shapes horizontally or vertically.
RelativeToRelativeTo ОбязательныйRequired LongLong Значение true , чтобы равномерно распределить фигуры по всему горизонтальному или вертикальному пространству на странице.True to distribute the shapes evenly over the entire horizontal or vertical space on the page. Значение false , чтобы распределить их по горизонтальному или вертикальному интервалу, занимаемому диапазоном фигур.False to distribute them within the horizontal or vertical space that the range of shapes originally occupies.

ПримечанияRemarks

Вы можете указать, нужно ли распределить фигуры по горизонтали или по вертикали, а также следует ли распределить их по всей странице или по местному пространству, которые они занимают.You can specify whether you want to distribute the shapes horizontally or vertically and whether you want to distribute them over the entire page or just over the space they originally occupy.

ПримерExample

В этом примере определяется диапазон фигур, который содержит все автофигуры в активном документе, а затем горизонтально распределяет фигуры в этом диапазоне.This example defines a shape range that contains all the AutoShapes on the active document and then horizontally distributes the shapes in this range.

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

См. такжеSee also

Объект коллекции ShapeRangeShapeRange Collection Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.