Método ShapeRange.Distribute (PowerPoint)
Distribuye uniformemente las formas del intervalo especificado. Puede especificar si desea distribuir las formas vertical u horizontalmente y si desea distribuirlas por toda la diapositiva o sólo en el espacio que ocupan originalmente.
Sintaxis
expresión. Distribute( _DistributeCmd_, _RelativeTo_ )
Expresión Variable que representa un objeto ShapeRange .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| DistributeCmd | Obligatorio | MsoDistributeCmd | Especifica si las formas del intervalo se van a distribuir vertical u horizontalmente. |
| RelativeTo | Obligatorio | MsoTriState | Determina si las formas se distribuyen uniformemente en todo el espacio horizontal o vertical de la diapositiva. |
Valor devuelto
Nada
Ejemplo:
En este ejemplo se define un intervalo de formas que contiene todas las autoformas de myDocument y se distribuyen horizontalmente las formas de este 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
Consulte también
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.