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

Objeto da coleção 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.