ShapeRange.Distribute-Methode (Word)
Verteilt die Formen im angegebenen Formenbereich gleichmäßig. .
Syntax
Ausdruck.
Distribute( _Distribute_ , _RelativeTo_ )
expression Erforderlich. Eine Variable, die ein ShapeRange-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Distribute | Erforderlich | MsoDistributeCmd | Gibt an, ob die Formen horizontal oder vertikal verteilt werden. |
| RelativeTo | Erforderlich | Long | True, um die Formen gleichmäßig über den gesamten horizontalen oder vertikalen Leerraum auf der Seite zu verteilen. False, um die Formen innerhalb des horizontalen oder vertikalen Leerraumes zu verteilen, den der Formenbereich ursprünglich in Anspruch nahm. |
Hinweise
Sie können angeben, ob die Formen horizontal oder vertikal und ob sie über die ganze Seite oder nur über den Platz verteilt werden, den sie ursprünglich in Anspruch nahmen.
Beispiel
In diesem Beispiel wird ein Formbereich mit allen AutoFormen im aktiven Dokument definiert, und anschließend werden die Formen horizontal in diesem Bereich verteilt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.