Selection.Distribute-Methode (Visio)

Verteilt mindestens drei ausgewählte Shapes in regelmäßigen Abständen auf dem Zeichenblatt. Die Reihenfolge der Auswahl spielt keine Rolle.

Syntax

Ausdruck. Distribute( _Distribute_ , _GlueToGuide_ )

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Distribute	Erforderlich	VisDistributeTypes	Gibt an, wie die Shapes verteilt werden. Mögliche Werte finden Sie in den Hinweisen.
GlueToGuide	Optional	Boolescher Wert	Mit True werden Führungslinien erstellt und ausgewählte Shapes angeklebt. Mit False ist dies nicht der Fall. Der Standardwert ist False.

Rückgabewert

Nichts

Bemerkungen

Die folgenden möglichen Werte für Distribute werden in VisDistributeTypes in der Visio-Typbibliothek deklariert.

Konstante	Wert	Beschreibung
visDistHorzCenter	2	Verteilt Shapes so horizontal, dass ihre unteren Ränder einheitlich verteilt sind.
visDistHorzLeft	1	Verteilt Shapes so horizontal, dass ihre linken Ränder einheitlich verteilt sind.
visDistHorzRight	3	Verteilt Shapes so horizontal, dass ihre rechten Ränder einheitlich verteilt sind.
visDistHorzSpace	0	Verteilt Shapes so horizontal, dass zwischen den Shapes gleich viel Leerraum vorhanden ist.
visDistVertBottom	7	Verteilt Shapes so vertikal, dass ihre unteren Ränder einheitlich verteilt sind.
visDistVertMiddle	6	Verteilt Shapes so vertikal, dass ihre Mittelpunkte einheitlich verteilt sind.
visDistVertSpace	4	Verteilt Shapes so vertikal, dass zwischen den Shapes gleich viel Leerraum vorhanden ist.
visDistVertTop	5	Verteilt Shapes so vertikal, dass ihre oberen Ränder einheitlich verteilt sind.

Das Aufrufen der Distribute-Methode entspricht dem Festlegen von Optionen im Dialogfeld Shapes verteilen (klicken Sie auf der Registerkarte Start auf Position, zeigen Sie auf Shapes im Leerraum, und klicken Sie dann auf Weitere Verteilungsoptionen).

Das Übergeben von True für das optionale Argument GlueToGuide entspricht dem Aktivieren des Kontrollkästchens Führungslinien erstellen und Shapes ankleben im Dialogfeld Shapes verteilen.

Wenn Sie True für GlueToGuide übergeben, erstellt Visio Führungslinien, um die Verteilung der Shapes beizubehalten. Sie können die äußersten Führungslinien auswählen und verschieben, um die Shapes zu verschieben, ohne deren Verteilung zu ändern.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Distribute-Methode drei Shapes so vertikal verteilen, dass ihre rechten Ränder einheitlich verteilt und an Führungslinien angeklebt werden.

Public Sub Distribute_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
 Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2) 
 
 ActiveWindow.DeselectAll 
 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 ActiveWindow.Select vsoShape3, visSelect 
 
 Application.ActiveWindow.Selection.Distribute visDistVertRight, True 
 
End Sub

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.