[SIZE=1]Option Explicit
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Const LOGPIXELSX As Long = 88
Private Const LOGPIXELSY As Long = 90
Private Const WM_LBUTTONDOWN As Long = &H201&
Private Const WM_LBUTTONUP As Long = &H202&
Private colWindow As New Collection
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim lpClassName As String
Dim lResult As Long
lpClassName = Space(256)
lResult = GetClassName(hwnd, lpClassName, 256)
lpClassName = Left(lpClassName, lResult)
colWindow.Add hwnd, lpClassName
EnumChildProc = 1
End Function
Public Sub ClearOfficeClipboardResolutionAndLanguageIndependent() 'alphamax_2016
'clears the office clipboard
Dim bClipboard As Boolean
Dim bScreenUpdating As Boolean
Dim hDC As Long
Dim hwnd As Long
Dim lParameter As Long
Dim lPosition As Long
Dim lWidth As Long
With Application
bScreenUpdating = .ScreenUpdating
If Not bScreenUpdating Then
.ScreenUpdating = True
End If
With Application.CommandBars("Office Clipboard")
bClipboard = .Visible
lPosition = .Position 'backup position
lWidth = .Width 'backup width
If Not bClipboard Then
.Visible = True
End If
.Position = msoBarLeft 'dock left so we can use handle of "bosa_sdm_XL9"
.Width = 0 'make clipboard width narrow so buttons are on top of each other and textsize doesn't determine button size
End With
End With
DoEvents
hwnd = FindWindowEx(Application.hwnd, 0, "EXCEL2", "")
EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0& 'build windowdata tree
hwnd = colWindow.Item("bosa_sdm_XL9")
hDC = GetDC(0)
lParameter = 42 * GetDeviceCaps(hDC, LOGPIXELSY) / 96 * 65536 + 16 * GetDeviceCaps(hDC, LOGPIXELSX) / 96
ReleaseDC 0, hDC
PostMessage hwnd, WM_LBUTTONDOWN, 0&, lParameter 'push button
PostMessage hwnd, WM_LBUTTONUP, 0&, lParameter 'release button
Do Until colWindow.Count = 0
colWindow.Remove 1
Loop
With Application
With .CommandBars("Office Clipboard")
.Position = lPosition
.Width = lWidth
If Not bClipboard Then
.Visible = False 'hide office clipboard
End If
End With
If Not bScreenUpdating Then
.ScreenUpdating = False
End If
End With
End Sub
[/SIZE]
