Copy Textbox Text To Clipboard

[markronz]

Hello All-
I am just trying to copy the contents of a TextBox onto the clipboard so that the text can be pasted in a Word document or anywhere as just text.

My textbox is named:
Sheets("Type1").TextBox1

Any ideas how to accomplish this?

Thanks!

[Aaron Blood]

In the past, I've used a backhanded approach with InputBox/SendKeys to quickly dump text to the clipboard. I'll share my trick with you if you promise not to tell anyone...

Sub TextCopy() 
    Application.SendKeys ("^c~") 
    InputBox "clipboard", ,  Sheets("Sheet1").TextBox1.Text 
End Sub 

Sure, it works with your textbox but it's also kinda neat to remember for dumping strings in general to the clipboard.

[royUK]

Here's another way

Dim objData As DataObject 
Dim strClipBoard As String 
Set objData = New DataObject 
 ' Clears the clipboard
objData.SetText "" 
objData.PutInClipboard 
 ' Puts the text from an textBox into the clipboard
strClipBoard = Me.TextBox1.Value 
objData.SetText strClipBoard 
objData.PutInClipboard 
 ' Gets the text on the clipboard into a string  variable
objData.GetFromClipboard 
strClipBoard = "" 
strClipBoard = objData.GetText 

[Aaron Blood]

I believe you only expose the DataObject if you already have a userform open in your app. Which in this case... I had not detected.

[royUK]

I thought the OP was talking about a TextBox on a UserForm, I didn't notice the sheets reference.