vba - 将文本框复制到剪贴板

Question

我尝试复制剪贴板中的所有文本框(当我左键单击文本框时)。我收到一个错误:未定义用户定义的类型。编码:

Sub TextBox1_Click()
Dim DataObject As DataObject
          Set DataObject = New DataObject
          DataObject.SetText Me.TextBox1.Text
          DataObject.PutInClipboard
End Sub

任何想法？

Answer 1

您需要将其指定为 MSForms.DataObject:

Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject
clipboard.SetText Me.TextBox1.Text
clipboard.PutInClipboard