Freigeben über


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.