Пример использования методов Paste, PutInClipboard и SetText

В следующем примере показано перемещение данных из TextBox в DataObject, из DataObject в буфер обмена и из буфера обмена в другой элемент TextBox.

Метод PutInClipboard передает данные из объекта DataObject в буфер обмена. Также используются методы SetText и Paste .

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

• Два элемента управления TextBox с именами TextBox1 и TextBox2.
• Объект CommandButton с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.