Selection.Trim-Methode (Visio)

Artikel
04/07/2023

Schneidet ausgewählte Shapes in kleinere Shapes zu.

Syntax

Ausdruck. Trim

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Das Aufrufen der Trim-Methode entspricht dem Klicken auf Zuschneiden auf der Microsoft Visio-Benutzeroberfläche (klicken Sie auf der Registerkarte Entwicklertools in der Gruppe Shape-Design auf Vorgänge).

Die neuen Formen erben die Formatierung der ersten ausgewählten Form, haben keinen Text und sind die obersten Formen in ihrem Container – die _n_th Form, _n_th - 1 Form, _n_th - 2 Form usw. in der Shapes - Auflistung ihrer enthaltenden Form, wobei n = Count ist. Die ursprünglichen Shapes werden gelöscht und wenn der Vorgang abgeschlossen ist, ist kein Shape mehr ausgewählt.

Die Trim-Methode ist mit der Fragment-Methode vergleichbar, weist jedoch folgende Unterschiede auf:

Shapes, die mit der Trim-Methode erstellt wurden, stimmen mit den unterschiedlichen Pfaden der ausgewählten Shapes überein und berücksichtigen die Überlappung.
Shapes, die mit der Fragment-Methode erstellt wurden, stimmen mit den unterschiedlichen Bereichen der ausgewählten Shapes überein und berücksichtigen auch die Überlappung.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Trim-Methode ausgewählte Shapes entlang ihrer Schnittpunkte in kleinere Shapes zuschneiden.

Public Sub Trim_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim shapeCount As Integer 
 
 'Draw two shapes that intersect 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 4, 4, 1) 
 Set vsoShape2 = ActivePage.DrawOval(2, 6, 3, 2) 
 
 'Deselect the oval and then select both of the new shapes on the page 
 ActiveWindow.DeselectAll 
 ActiveWindow.SelectAll 
 
 'Create a selection object and assign the selected shapes to it 
 Dim vsoSelection As Visio.Selection 
 Set vsoSelection = ActiveWindow.Selection 
 
 'Trim the selected shapes 
 vsoSelection.Trim 
 
 'Move one of the newly created shapes 
 ActiveWindow.DeselectAll 
 shapeCount = ActivePage.Shapes.Count 
 
 Set vsoShape1 = ActivePage.Shapes(shapeCount - 2) 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Selection.Move 2, 2 
 
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.

Freigeben über