ClipBoards

[richarddawson]

I have a need to be able to discover if there is anything on the Office Clipboard. An item count would be perfect.
I am using 64 bit - but can usually adapt 32 bit instructions.

I am reluctant to try the alternative of using the system as this would raise a whole new range of questions - though it would be easier to clear.

 

[RoryA]

For a simple count:

Function OclipItemCount() As Long
    On Error Resume Next
    OclipItemCount = CLng(Split(Application.CommandBars("Office clipboard").Controls(1).Caption)(0))
End Function

 

[richarddawson]

Thanks Rory,

But, unfortunately, it doesn't work.

Cheers Richard

 

[richarddawson]

Sorry - should have said "It returns 0 however many items there are".

 

[RoryA]

What version are you running? It works for me in 2010.

 

[richarddawson]

2016, 64 bit

 

[richarddawson]

If I comment out the "On Error Resume Next" I get a "Run-time error '13': Type mismatch

 

[RoryA]

What does the caption at the top of the clipboard pane say?

 

[richarddawson]

Clipboard [down arrow] X

Paste All Clear All

Click an Item to Paste:

 

[RoryA]

Oh, that would explain it. In 2010, if there are items on it, it shows "7 of 24 - Clipboard" for example. I'll have to review when I have access to 2016.