使用API的Findwindow函数获取Excel窗口的大小

tmtony

使用API的Findwindow函数获取Excel窗口的大小

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

'显示EXCEL窗口的位置及大小
Public Sub ShowExcelWindowSize()
  Dim hWnd As Long, aRect As Rect
  hWnd = FindWindow("XLMAIN", Application.Caption) 'XLMAIN是EXCEL窗口的类名
  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

zpy2

这个结合打开不错。

zpy2

setwindowposition