Shape.Copy-Methode (Visio)

  • Artikel

Kopiert ein Shape in die Zwischenablage.

Syntax

Ausdruck. Kopieren (Flags)

expression Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Flags Optional Variant Bestimmt, wie Shapes beim Kopieren ü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.

Verwenden Sie die Duplicate-Methode, um ohne die Zwischenablage eine Kopie zu erstellen.

Beispiel

Das folgende Beispiel zeigt die Verwendung der Copy-Methode . Mit dem Code wird ein Rechteck gezeichnet und dann in die Zwischenablage kopiert.

 
Public Sub Copy_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
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.