Paste-, PutInClipboard-, SetText-Methode (Beispiel)

Im folgenden Beispiel wird die Datenverschiebung von einem TextBox-Objekt zu einem DataObject, von einem DataObject in die Zwischenablage und von der Zwischenablage in ein anderes TextBox-Objekt veranschaulicht.

Die PutInClipboard-Methode überträgt die Daten aus einem DataObject in die Zwischenablage. Die Methoden SetText und Paste werden ebenfalls verwendet.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

• Two TextBox controls named TextBox1 and TextBox2.
• Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".

Dim MyData As DataObject 
 
Private Sub CommandButton1_Click() 
 Set MyData = New DataObject 
 
 MyData.SetText TextBox1.Text 
 MyData.PutInClipboard 
 
 TextBox2.Paste 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Move this data to a " _ 
 & "DataObject, to the Clipboard, then to " _ 
 & "TextBox2!" 
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.