Issues with clearing the clipboard using VBA

[RawlinsCross]

Found some code online that purports to clear the clipboard... but I'm getting a error I can't decipher. Wonder if anyone has a solution.

'In a separate module

#If VBA7 Then
Private 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
Public Const myVBA7 As Long = 1
#Else
Private 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
Public Const myVBA7 As Long = 0
#End If
Public Sub EvRClearOfficeClipBoard()
'On Error Resume Next
Dim cmnB, IsVis As Boolean, j As Long, Arr As Variant

Arr = Array(4, 7, 2, 0) '4 and 2 for 32 bit, 7 and 0 for 64 bit
Set cmnB = Application.CommandBars("Office Clipboard")
With Application
    .DisplayClipboardWindow = True
End With
IsVis = cmnB.Visible
If Not IsVis Then
    cmnB.Visible = True
    DoEvents
End If
For j = 1 To Arr(0 + myVBA7)
    AccessibleChildren cmnB, Choose(j, 0, 3, 0, 3, 0, 3, 1), 1, cmnB, 1
Next
cmnB.accDoDefaultAction CLng(Arr(2 + myVBA7)) '<---- Fails here (see error snippit below)
Application.CommandBars("Office Clipboard").Visible = IsVis
With Application
    .DisplayClipboardWindow = True
End With
'On Error GoTo 0
End Sub

This is the error I'm getting :

 

[NdNoviceHlp]

You can trial this after the Call AltPrintScreen...

Dim T As Double
    T = Timer
    Do Until Timer - T > 1
      DoEvents
    Loop

Maybe some time is needed to copy to the clipboard before the paste (ie. the clipboard is still empty)? Dave

 

[RawlinsCross]

I'll check it out when I get home... presently near Pond Inlet, Nunavut (worth googling)

 

[RawlinsCross]

So I've been using the "Timer" modifying code and I think it's working well. I'll keep an eye on it of course. Thanks for the tip - I'm sure this could be used in a variety of situations.

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Thanks also to Jon Peltier for the timer code. I've used it to resolve a number of mysterious problems. Have a nice day. Dave