Paste, PutInClipboard, SetText methods example

The following example demonstrates data movement from a TextBox to a DataObject, from a DataObject to the Clipboard, and from the Clipboard to another TextBox.

The PutInClipboard method transfers the data from a DataObject to the Clipboard. The SetText and Paste methods are also used.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

• Two TextBox controls named TextBox1 and TextBox2.
• A CommandButton named 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 and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.