Método ShapeRange.Distribute (Word)
Distribui as formas uniformemente no intervalo especificado. .
Sintaxe
expression. Distribute( _Distribute_ , _RelativeTo_ )
expressão Obrigatório. Uma variável que representa um objeto ShapeRange.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Distribute | Obrigatório | MsoDistributeCmd | Especifica se a distribuição das formas deve ser horizontal ou vertical. |
| RelativeTo | Obrigatório | Long | True para distribuir uniformemente as formas sobre todo o espaço horizontal ou vertical da página. False para distribuí-las dentro do espaço horizontal ou vertical que o intervalo de formas ocupava originalmente. |
Comentários
Você pode especificar se deseja distribuir as formas horizontal ou verticalmente e se deseja distribuí-las por toda a página ou apenas sobre o espaço que elas ocupavam originalmente.
Exemplo
Este exemplo define um intervalo de formas contendo todas as AutoFormas do documento ativo e distribui horizontalmente as formas nesse intervalo.
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
Confira também
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.