Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Find window by class name

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String,ByVal WindowName As String) As Long Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long,Rect As Rect) As Long Private Type Rect   Left As Long   Top As Long   Right As Long   Bottom As Long End Type Public Sub ShowExcelWindowSize()   Dim hWnd As Long, aRect As Rect   hWnd = FindWindow("XLMAIN", Application.Caption)   Call GetWindowRect(hWnd, aRect)   Debug.Print " Left: " & aRect.Left    Debug.Print " Right: " & aRect.Right    Debug.Print " Top: " & aRect.Top   Debug.Print " Bottom: " & aRect.Bottom    Debug.Print " Width: " & (aRect.Right - aRect.Left)    Debug.Print " Height: " & (aRect.Bottom - aRect.Top) End Sub