Shape.Cut-Methode (Visio)
Löscht ein Objekt oder eine Auswahl und platziert es bzw. sie in der Zwischenablage.
Syntax
Ausdruck. Ausschneiden (Flags)
expression Eine Variable, die ein Shape-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Flags | Optional | Variant | Bestimmt, wie Shapes beim Ausschneiden übersetzt werden. |
Rückgabewert
Nichts
Bemerkungen
Mögliche Werte für Flags werden in der Visio-Typbibliothek in VisCutCopyPasteCodes deklariert und in der folgenden Tabelle beschrieben.
| Wert | Wert | Beschreibung |
|---|---|---|
| visCopyPasteNormal | &H0 | Das standardmäßige Kopierverhalten. |
| visCopyPasteNoTranslate | &H1 | Shapes werden an ihre ursprünglichen Koordinatenpositionen kopiert. |
| visCopyPasteCenter | &H2 | Shapes werden in die Mitte der Seite kopiert. |
| visCopyPasteNoHealConnectors | &H4 | Verbinder an ausgeschnittenen Shapes nicht löschen. |
| visCopyPasteNoContainerMembers | &H8 | Nicht markierte Elemente von Containern oder Listen nicht ausschneiden und kopieren. |
| visCopyPasteNoAssociatedCallouts | &H16 | Nicht markierte Beschriftungen von Shapes nicht ausschneiden und kopieren. |
| visCopyPasteDontAddToContainers | &H32 | Eingefügte Shapes nicht zugrunde liegenden Containern hinzufügen. |
| visCopyPasteNoCascade | &H64 | Shapes beim Kopieren nicht verschieben. |
Das Festlegen von Flags auf visCopyPasteNormal entspricht dem Verhalten in der Benutzeroberfläche. Sie sollten visCopyPasteNormal und die anderen Flags konsistent verwenden. Wenn Sie z. B. den Wert von visCopyPasteNoTranslate zum Kopieren verwenden, sollten Sie diesen Wert auch zum Einfügen verwenden, denn nur so können Sie sicherstellen, dass die Shapes an ihren ursprünglichen Koordinatenpositionen eingefügt werden.
Beispiel
Mit dem folgenden Beispiel wird gezeigt, wie die Cut-Methode verwendet wird. Mit dem Code wird ein Rechteck gezeichnet und dann aus dem Zeichenblatt ausgeschnitten (und in der Zwischenablage platziert).
Public Sub Cut_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Cut shape from the page
vsoShape.Cut
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.