使用API的Findwindow函數(shù)獲取Excel窗口的大小

tmtony

使用API的Findwindow函數(shù)獲取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