Page. Paste-Methode (Visio)Page.Paste method (Visio)

Fügt die Inhalte der Zwischenablage in ein Objekt ein.Pastes the contents of the Clipboard into an object.

SyntaxSyntax

Ausdruck. Einfügen (Flags)expression.Paste (Flags)

Ausdruck Eine Variable, die ein Page -Objekt darstellt.expression A variable that represents a Page object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
FlagsFlags OptionalOptional VariantVariant Bestimmt, wie Shapes beim Einfügen übersetzt werden.Determines how shapes are translated during the paste operation.

RückgabewertReturn value

NichtsNothing

BemerkungenRemarks

Die Paste -Methode funktioniert nur mit Shape -Objekten, die Gruppenformen sind.The Paste method works only with Shape objects that are group shapes. Ermitteln Sie mithilfe der Type-Eigenschaft, ob es sich bei einem Shape um eine Gruppe handelt.Use the Type property of a shape to determine whether it is a group.

Mögliche Werte für Flags werden von der Visio-Typbibliothek in VisCutCopyPasteCodesdeklariert und in der folgenden Tabelle beschrieben.Possible values for Flags are declared by the Visio type library in VisCutCopyPasteCodes, and are described in the following table.

WertFlag WertValue BeschreibungDescription
visCopyPasteNormalvisCopyPasteNormal &H0&H0 Das standardmäßige Kopierverhalten.Follow default copying behavior.
visCopyPasteNoTranslatevisCopyPasteNoTranslate &H1&H1 Shapes werden an ihre ursprünglichen Koordinatenpositionen kopiert.Copy shapes to their original coordinate locations.
visCopyPasteCentervisCopyPasteCenter &H2&H2 Shapes werden in die Mitte der Seite kopiert.Copy shapes to the center of the page.
visCopyPasteNoHealConnectorsvisCopyPasteNoHealConnectors &H4&H4 Verbinder an ausgeschnittenen Shapes nicht löschen.Do not clean up connectors attached to cut shapes.
visCopyPasteNoContainerMembersvisCopyPasteNoContainerMembers &H8&H8 Nicht markierte Elemente von Containern oder Listen nicht ausschneiden und kopieren.Do not cut and copy unselected members of containers or lists.
visCopyPasteNoAssociatedCalloutsvisCopyPasteNoAssociatedCallouts &H16&H16 Nicht markierte Beschriftungen von Shapes nicht ausschneiden und kopieren.Do not cut and copy unselected callouts associated with shapes.
visCopyPasteDontAddToContainersvisCopyPasteDontAddToContainers &H32&H32 Eingefügte Shapes nicht zugrunde liegenden Containern hinzufügen.Do not add pasted shapes to any underlying containers.
visCopyPasteNoCascadevisCopyPasteNoCascade &H64&H64 Shapes beim Kopieren nicht verschieben.Do not offset shapes on copy.

Das Festlegen von Flags für visCopyPasteNormal entspricht dem Verhalten auf der Benutzeroberfläche.Setting Flags to visCopyPasteNormal is the equivalent of the behavior in the user interface. Sie sollten visCopyPasteNormal und die anderen Flags konsistent verwenden.You should use visCopyPasteNormal and the other flags consistently. 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.For example, if you use the value visCopyPasteNoTranslate to copy, you should also use that value to paste, because that is the only way to ensure that shapes are pasted to their original coordinate location.

Wenn Sie das Format der eingefügten Informationen steuern und (optional) einen Link zu einer Quelldatei (beispielsweise ein Microsoft Word-Dokument) erstellen müssen, verwenden Sie die PasteSpecial -Methode.If you need to control the format of the pasted information and (optionally) establish a link to a source file (for example, a Microsoft Word document), use the PasteSpecial method.

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die Paste -Methode verwendet wird.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Paste method. Das Makro zeichnet ein Rechteck, kopiert es und fügt dann die Kopie in das Zeichenblatt ein.It draws a rectangle, copies it, and then pastes the copy onto the drawing page.

 
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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.