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.