Note: To open the Clipboard task pane in Outlook, in an open message, click the Message tab, and then click the Clipboard dialog box launcher in the Clipboard group. Double-click the image or text you want to paste. If InStr("Clear All - Borrar todo - Effacer tout", oIA.accName(vKid)) ThenĬall oIA.accDoDefaultAction(vKid): CommandBars("Office Clipboard").Visible = Not bHidden: bHidden = False: Exit SubĬommandBars("Office Clipboard"). To open the Clipboard task pane, click Home, and then click the Clipboard dialog box launcher. LResult = AccessibleObjectFromPoint(tPt.x, tPt.Y, oIA, vKid) LResult = AccessibleObjectFromPoint(lngPtr, oIA, vKid) TPt.x = tRect1.Left + i: tPt.Y = tRect1.Top - 10 + (tRect2.Top - tRect1.Top) / 2 HwndScrollBar = GetNextWindow(GetNextWindow(hwndClip, GW_CHILD), GW_CHILD)įor i = 0 To tRect1.Right - tRect1.Left Step 50 HwndClip = GetNextWindow(hwndClip, GW_CHILD) HwndClip = FindWindowEx(hwndClip, 0, "MsoCommandBar", CommandBars("Office Clipboard").NameLocal) HwndClip = FindWindowEx(Application.hwnd, 0, "EXCEL2", vbNullString) If CommandBars("Office Clipboard").Visible = False ThenĬommandBars("Office Clipboard").Visible = TrueĪpplication.OnTime Now, "ClearOfficeClipBoard": Exit Sub Private Declare PtrSafe Function AccessibleObjectFromPoint Lib "oleacc" (ByVal lX As Long, ByVal lY As Long, ppacc As IAccessible, pvarChild As Variant) As Longĭeclare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Longĭeclare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Longĭeclare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Longĭeclare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Longĭeclare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)ĭeclare Function AccessibleObjectFromPoint Lib "Oleacc" (ByVal lX As Long, ByVal lY As Long, ppacc As IAccessible, pvarChild As Variant) As Long Private Declare PtrSafe Function AccessibleObjectFromPoint Lib "oleacc" (ByVal arg1 As LongPtr, ppacc As Any, pvarChild As Variant) As Long Displays the Office Clipboard when you press Ctrl+C twice. Show Office Clipboard When CTRL+C Pressed Twice. Displays the Office Clipboard when you copy more than one item. Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtrĭeclare PtrSafe Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtrĭeclare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Longĭeclare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As LongPtr) As Longĭeclare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr) With the Clipboard open, click Options at the bottom of the pane.
0 kommentar(er)
