Send to and retrieve from Windows Clipboard

 2009-05-05    VBA programming    0    193

The procedures below can be used to send text and numbers to the Windows Clipboard They all require a reference to the Microsoft Forms 2.x Object Library.

Sub SendToClipboard(varItem As Variant)
' sends varItem to the Windows Clipboard as text
Dim objDO As DataObject
    Set objDO = New DataObject
    With objDO
        .SetText varItem
        .PutInClipboard
    End With
    Set objDO = Nothing
End Sub
Function GetFromClipboard() As Variant
' returns the current content from the Windows Clipboard
Dim objDO As DataObject
    Set objDO = New DataObject
    With objDO
        .GetFromClipboard
        GetFromClipboard = .GetText
    End With
    Set objDO = Nothing
End Function
Sub ClearClipboardContent()
' clears the Windows Clipboard content
    SendToClipboard vbNullString
End Sub