ShapeRange.Distribute-Methode (Word)

Verteilt die Formen im angegebenen Formenbereich gleichmäßig. .

Syntax

Ausdruck. Distribute( _Distribute_ , _RelativeTo_ )

Ausdruck: 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.

HinwBemerkungeneise

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

ShapeRange-Auflistungsobjekt

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.