Ejemplo de métodos Paste, PutInClipboard y SetText

En el ejemplo siguiente se muestra el movimiento de datos de un TextBox a un Objeto DataObject, de un Objeto DataObject al Portapapeles y del Portapapeles a otro TextBox.

El método PutInClipboard transfiere los datos de un objeto DataObject al Portapapeles. También se usan los métodos SetText y Paste .

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Dos controles TextBox denominados TextBox1 y TextBox2.
• Un control CommandButton denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.