|
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
|