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.