Exemplo dos métodos Paste, PutInClipboard, SetText

O exemplo a seguir demonstra a movimentação de dados de uma Caixa de Texto para um DataObject, de um DataObject para a Área de Transferência e da Área de Transferência para outra Caixa de Texto.

O método PutInClipboard transfere os dados de um DataObject para a Área de Transferência. Os métodos SetText e Paste também são usados.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Dois controles TextBox denominados TextBox1 e 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.