Help with Clipboard Error

[Mitch]

The message below pertains to clearing the "Office"
clipboard......Thanks

The following code came from a post yesterday about
clearing the clipboard.

Public Declare Function OpenClipboard Lib "user32" (_
ByVal Hwnd As Long) As Long

Public Declare Function CloseClipboard Lib "user32" () As
Long

Public Declare Function EmptyClipboard Lib "user32" () As
Long

Sub ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Sub

I declared the functions with the rest of the public
variables and created a module for the sub ClearClipboard.

After I copied data, I called the ClearClipboard sub (to
clear the Office Clipboard and received the following
error message:

Can't find DLL entry point OpenClipboard in User 32

Any help on what I'm doing wrong would be GREATLY
appreciated. Thanks for the help.
..

 

[Tom Ogilvy]

That code is for the regular clipboard, not the office clipboard.

 

[mitch]

Do you have any suggestions for the clearing the office
clipboard? Thank you.

 

[Tom Ogilvy]

commandbars("clipboard").Controls("Clear ClipBoard").Execute

Worked for me.

 

[Tom Ogilvy]

Doesn't appear to affect the office clipboard as asked by the OP. It
should work with the regular clipboard I would guess.

--

Regards,
Tom Ogilvy

I don't know about your issue, but below I have a possible tested

alternative. This function clears anything in the clipboard. Be sure to set
a referenct to the "Microsoft Forms 2.0 Object Library". HTH.