Compartir a través de

Método ShapeRange.Distribute (Word)

  • Artículo

Distribuye uniformemente las formas del intervalo especificado. .

Sintaxis

expresión. Distribute( _Distribute_ , _RelativeTo_ )

expresión requerida. Variable que representa un objeto ShapeRange.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Distribuir Obligatorio MsoDistributeCmd Especifica si deben distribuir las formas en sentido horizontal o vertical.
RelativeTo Obligatorio Long True para distribuir las formas uniformemente por todo el espacio horizontal o vertical de la página. False para distribuirlas en el espacio horizontal o vertical que ocupa el intervalo de formas originalmente.

Comentarios

Puede especificar si desea distribuir las formas horizontal o verticalmente y si desea distribuirlas en toda la página o sólo en el espacio que ocupan originalmente.

Ejemplo:

En este ejemplo se define un intervalo de formas que contiene todas las Autoformas del documento activo y, a continuación, se distribuyen las formas horizontalmente en este 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

Consulte también

Objeto de colección ShapeRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.