Option Explicit
Private Enum Chromium_Based_Browsers
Edge
opera
Chrome
End Enum
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
#If VBA7 Then
Private Declare PtrSafe Function SetWindowPlacement Lib "user32" (ByVal hwnd As LongPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Long
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long
Private Declare PtrSafe Function MoveWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function GetTopWindow Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtr
Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "OLEACC.DLL" (ByVal hwnd As LongPtr, ByVal dwId As Long, ByVal riid As LongPtr, ppvObject As Any) As Long
Private Declare PtrSafe Function IIDFromString Lib "ole32.dll" (ByVal lpsz As LongPtr, ByVal lpiid As LongPtr) As LongPtr
Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
#Else
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, ByRef lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Declare Function AccessibleObjectFromWindow Lib "OLEACC.DLL" (ByVal hwnd As Long, ByVal dwId As Long, ByVal riid As Long, ppvObject As Any) As Long
Private Declare Function IIDFromString Lib "ole32.dll" (ByVal lpsz As Long, ByVal lpiid 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
#End If
Sub SideBySide()
#If Win64 Then
Dim hwnds() As LongLong
#Else
Dim hwnds() As Long
#End If
Const SW_SHOWNORMAL As Long = 1
Dim hwnd As Variant
Dim R As RECT, LW As RECT, RW As RECT, WP As WINDOWPLACEMENT
'Get the size of the deskop
If GetWindowRect(GetDesktopWindow, R) = 0 Then Exit Sub
'Calculate the left and right side
LW = R
LW.Right = R.Left + (R.Right - R.Left) / 2
RW = R
RW.Left = R.Right - (R.Right - R.Left) / 2
'Move Excel to the Right
hwnd = Application.hwnd
With RW
Call MoveWindow(hwnd, .Left, .Top, .Right - .Left, .Bottom - .Top, True)
End With
Call BringWindowToTop(hwnd)
' get the hwnds of all targeted browsers
hwnds = GetInternetBrowsersHwnd(Chrome) '<= pass chrome, Opera or Edge enums
If Not Not hwnds Then
For Each hwnd In hwnds
' Ensure that the Window is set to normal mode
WP.Length = Len(WP)
WP.showCmd = SW_SHOWNORMAL
Call SetWindowPlacement(hwnd, WP)
' Use the Window Handle to move the Chrome Window to the left hand side of the screen
With LW
Call MoveWindow(hwnd, .Left, .Top, .Right - .Left, .Bottom - .Top, True)
End With
Call BringWindowToTop(hwnd)
Next
Else
Debug.Print "NB: No specified browser windows were found found!"
End If
End Sub
#If Win64 Then
Private Function GetInternetBrowsersHwnd(ByVal Browser As Chromium_Based_Browsers) As LongLong()
Dim hwnd As LongLong, hwnds() As LongLong
#Else
Private Function GetInternetBrowsersHwnd(ByVal Browser As Chromium_Based_Browsers) As Long()
Dim hwnd As Long, hwnds() As Long
#End If
Const GW_HWNDNEXT = 2
Dim sClassName As String * 256, lRet As Long
Dim sBrowser As String, sAccName As String
Dim HwndIndex As Long
sBrowser = Switch(Browser = Edge, "- Microsoft Edge", Browser = opera, "- Opera", Browser = Chrome, "- Google Chrome")
hwnd = GetTopWindow(0)
Do While hwnd <> 0
lRet = GetClassName(hwnd, sClassName, 256)
If Left(sClassName, lRet) = "Chrome_WidgetWin_1" Then
sAccName = GetBrowserAccName(hwnd)
If InStr(1, sAccName, sBrowser, vbTextCompare) Then
ReDim Preserve hwnds(HwndIndex)
hwnds(HwndIndex) = hwnd
HwndIndex = HwndIndex + 1
End If
End If
hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)
Loop
GetInternetBrowsersHwnd = hwnds
End Function
#If Win64 Then
Private Function GetBrowserAccName(ByVal hwnd As LongLong) As String
#Else
Private Function GetBrowserAccName(ByVal hwnd As Long) As String
#End If
Const ID_ACCESSIBLE As String = "{618736E0-3C3D-11CF-810C-00AA00389B71}"
Const OBJID_CLIENT = &HFFFFFFFC
Const S_OK = &H0
Dim tGUID(0 To 3) As Long
Dim oIAc As IAccessible
If IIDFromString(StrPtr(ID_ACCESSIBLE), VarPtr(tGUID(0))) = S_OK Then
If AccessibleObjectFromWindow(hwnd, OBJID_CLIENT, VarPtr(tGUID(0)), oIAc) = S_OK Then
GetBrowserAccName = oIAc.accName(0&)
End If
End If
End Function
