VBA表单上的可选文本

Question

单击按钮时，我使用以下代码将标签的文本复制到剪贴板：

Private Sub CopyToClipBoardButton_Click()

    CopyText labelName

End Sub

但是我没有点击按钮，而是希望我可以直接选择表单上的文本，然后右键单击鼠标按钮进行复制。可能吗？

Answer 1

您可以在标签点击事件中将label.caption复制到剪贴板。

Private Sub Label1_Click()
    With New MSForms.DataObject
        .SetText Label1.Caption
        .PutInClipboard
    End With
End Sub