Appendix Thread. ( Codes for other Threads, etc.) Event Coding Drpdown Data validation

**DocAElstein** · 03-03-2019, 05:46 PM

Code in support of this Thread
http://www.excelfox.com/forum/showth...ll=1#post11018

In simple terms this clears the Windows Clipboard.
More likely there is an awful lot more to it than that, so I may come back here with a much larger offering in the future.... _
_.. the various Microsoft Clipboards and the versions of copies that hey hold have a spaghetti of interdependencies that anyone has long since given up trying to understand**. Sadly it will probably be left to some later form of artificial intelligence to understand.. and use effectively… against us…. … you are experiencing a car accident…. The hell I am…. https://www.youtube.com/watch?v=qhAFWW-p7PQ......

Code:

#If VBA7 Then
    Private Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
    Private Declare PtrSafe Function EmptyClipboard Lib "User32" () As Long
    Private Declare PtrSafe Function CloseClipboard Lib "User32" () As Long
#Else
    Private Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
    Private Declare Function EmptyClipboard Lib "User32" () As Long
    Private Declare Function CloseClipboard Lib "User32" () As Long
#End If

Public Function ClearWindowsClipboard()
    If OpenClipboard(0&) Then
        EmptyClipboard
        CloseClipboard
    Else
        MsgBox "OpenClipboard failed"
    End If
End Function

Sub Test()
    Call ClearWindowsClipboard
End Sub