Exemplo dos métodos Copy, GetFromClipboard, GetText, do objeto DataObject

O exemplo a seguir demonstra a movimentação de dados de uma Caixa de Texto para a Área de Transferência, da Área de Transferência para um DataObject e de um DataObject para outra TextBox. O método GetFromClipboard transfere os dados da Área de Transferência para um DataObject. Os métodos Copy e GetText 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() 
 '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 

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.