Office中国论坛/Access中国论坛

标题: 使用API的Findwindow函数获取Excel窗口的大小 [打印本页]

作者: tmtony 时间: 2015-6-10 10:23
标题: 使用API的Findwindow函数获取Excel窗口的大小

使用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 时间: 2015-6-11 05:16
这个结合打开不错。

作者: zpy2 时间: 2015-6-11 05:17
setwindowposition

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)