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
¿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.