snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.289
@E v R
Waar je het vandaan haalt is me een raadsel, maar het werkt feillings. :thumb:
Welke bibliotheek is 'oleacc' ?
Gewoontegetrouw heb ik er nog wel wat aan geknutseld.
Ik kom nu uit op:
Waar je het vandaan haalt is me een raadsel, maar het werkt feillings. :thumb:
Welke bibliotheek is 'oleacc' ?
Gewoontegetrouw heb ik er nog wel wat aan geknutseld.
Ik kom nu uit op:
Code:
Private 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
Sub ClearOfficeClipBoard()
Dim Acc As Office.IAccessible
With CommandBars("Office Clipboard")
.Visible = True
DoEvents
Set Acc = zetAcc(zetAcc(zetAcc(.accChild(1), 3), 0), 3)
Acc.accDoDefaultAction 2&
.Visible = False
End With
End Sub
Private Function zetAcc(myAcc As Office.IAccessible, myChildIndex As Long) As Office.IAccessible
y = myAcc.accChildCount
ReDim List(y)
If AccessibleChildren(myAcc, 0&, ByVal y, List(0), y) = 0& Then Set zetAcc = List(myChildIndex)
End Function
Laatst bewerkt: