copy to clipboard
thanks
works great
"Peter T" <peter_t@discussions wrote in message
...
If you don't already have a userform, add one and then you can delete it
(just a quick way to add the necessary Reference for DataObject).
Sub ComToClipBrd()
Dim sComText As String
Dim dtaObj As DataObject
On Error Resume Next
sComText = ActiveCell.Comment.Text
On Error GoTo 0
If Len(sComText) Then
Set dtaObj = New DataObject
dtaObj.SetText sComText
dtaObj.PutInClipboard
MsgBox sComText, , "put in clipboard"
End If
End Sub
Regards,
Peter T
"greg" wrote in message
...
This should be easy.
I want to select a cell. then copy the comment from a cell into the
clipboard.
To get the comment I can
Excel.Selection.Comment.Text
for copying to the clipboard. Googline I see a clipboard object. people
use:
Clipboard.setText
but clipboard is not an object for me.
Do you have to add a reference in?
dim it as something?
thanks
|