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