Método ShapeRange.Distribute (PowerPoint)

Artigo
04/07/2023

Distribui as formas uniformemente no intervalo especificado. Você pode especificar se deseja distribuir as formas no sentido horizontal ou vertical e também se deseja distribui-las por todo o slide ou apenas no espaço que ocupavam originariamente.

Sintaxe

expressão. Distribute( _DistributeCmd_, _RelativeTo_ )

Expressão Uma variável que representa um objeto ShapeRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
DistributeCmd	Obrigatório	MsoDistributeCmd	Especifica se as formas no intervalo serão distribuídas horizontal ou verticalmente.
RelativeTo	Obrigatório	MsoTriState	Determina se as formas serão distribuídas uniformemente sobre todo o espaço horizontal ou vertical do slide.

Valor de retorno

Nada

Exemplo

Este exemplo define um intervalo de formas que contenham todas as AutoFormas em myDocument e distribui horizontalmente as formas nesse intervalo.

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

Confira também

Objeto ShapeRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Partilhar via