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.

 

[richarddawson]

Thanks Rory,

I much appreciate your efforts.

Richard

 

[Jaafar Tribak]

Hi,
The subject of this thread intrigued me and I have done some research so in case you are still interested, you can take a look at this post where I wrote functions that use very small Active Accessibility code to determine if the office clipboard is empty or not and if so how many items there are in it.

 

[richarddawson]

Thanks, Jaafar,

Unusually your code works perfectly straight out of the box! Solves my problem too!

I resort to clearing the clip board by using VBA to position the cursor on the "clear all" button and then clicking the mouse,
but I feel this is clumsy. Did you , by any chance, write a routine to clear it?

With many thanks, Richard

 

[Jaafar Tribak]

Thanks, Jaafar,

I resort to clearing the clip board by using VBA to position the cursor on the "clear all" button and then clicking the mouse,
but I feel this is clumsy. Did you , by any chance, write a routine to clear it?

With many thanks, Richard

Try this simplified code : (Credit goes to E v R from http://www.helpmij.nl/forum/forumdisplay.php/5-Excel)

Option Explicit

[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If]#If[/URL]  VBA7 Then
    Declare PtrSafe Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL] 
    Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
[URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]  If

Sub ClearOfficeClipBoard()
    Dim avAcc, bClipboard As Boolean, j As Long
    
    Set avAcc = Application.CommandBars("Office Clipboard")
        bClipboard = avAcc.Visible
        If Not bClipboard Then
            avAcc.Visible = True
            DoEvents
        End If
        For j = 1 To 4
            AccessibleChildren avAcc, Choose(j, 0, 3, 0, 3), 1, avAcc, 1
        Next
        avAcc.accDoDefaultAction 2& '1& for paste
        Application.CommandBars("Office Clipboard").Visible = bClipboard
End Sub

 

[richarddawson]

Thanks Jaafar,

Saved me lots of frustration.

All the best Richard