Ejemplo de métodos Copy, GetFromClipboard y GetText Methods, y objeto DataObject

En el ejemplo siguiente se muestra el movimiento de datos de un TextBox al Portapapeles, del Portapapeles a un Objeto DataObject y de un Objeto DataObject a otro TextBox. El método GetFromClipboard transfiere los datos del Portapapeles a un objeto DataObject. También se usan los métodos Copy y GetText .

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() 
 'Need to select text before copying it to Clipboard 
 TextBox1.SelStart = 0 
 TextBox1.SelLength = TextBox1.TextLength 
 TextBox1.Copy 
 
 MyData.GetFromClipboard 
 TextBox2.Text = MyData.GetText(1) 
End Sub 
 
Private Sub UserForm_Initialize() 
 Set MyData = New DataObject 
 TextBox1.Text = "Move this data to the " _ 
 & "Clipboard, to a DataObject, 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.