Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.