Page.Paste-Methode (Visio)
Fügt die Inhalte der Zwischenablage in ein Objekt ein.
Ausdruck. Einfügen (Flags)
Ausdruck Eine Variable, die ein Page-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Flags | Optional | Variant | Bestimmt, wie Shapes beim Einfügen übersetzt werden. |
Nichts
Die Paste-Methode kann nur mit Shape-Objekten verwendet werden, die Gruppen-Shapes darstellen. Ermitteln Sie mithilfe der Type-Eigenschaft, ob es sich bei einem Shape um eine Gruppe handelt.
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 PasteSpecial-Methode, wenn Sie das Format der eingefügten Informationen steuern und (optional) eine Verknüpfung mit der Quelldatei (z. B. einem Microsoft Word-Dokument) herstellen müssen.
Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie die Paste-Methode verwendet wird. Das Makro zeichnet ein Rechteck, kopiert es und fügt dann die Kopie in das Zeichenblatt ein.
Public Sub Paste_Example()
Dim vsoShape As Visio.Shape
'Draw a rectangle.
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
'Copy the shape to the Clipboard.
vsoShape.Copy
'Paste the copy onto the drawing page.
ActivePage.Paste
End Sub
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.