Метод ShapeRange.Distribute (PowerPoint)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
DistributeCmd	Обязательный	MsoDistributeCmd	Указывает, должны ли фигуры в диапазоне распределяться по горизонтали или по вертикали.
RelativeTo	Обязательный	MsoTriState	Определяет, распределяются ли фигуры равномерно по всему горизонтальному или вертикальному пространству слайда.

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

Отсутствует

Пример

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

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.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, msoFalse 
        End If 
    End If 
End With

См. также

Объект ShapeRange

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

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

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