Событие изменения/перемещения окна приложения Excel

[tae1980]

Как отследить событие изменения/перемещения окна приложения Excel?
Если можно то нужно два события: начала и конца изменения/перемещения.
Событие WindowResize срабатывает на изменения размера поля таблицы и ему по барабану что происходит с окном приложения, даже если при этом оно само уменьшается.

[EducatedFool]

Попробуйте это:
http://support.microsoft.com/kb/213566/en-us/

[tae1980]

Сообщение от EducatedFool

Попробуйте это:
http://support.microsoft.com/kb/213566/en-us/

К сожалению это так же относиться к рабочей книги, а не приложения. :((
Вот здесь есть полезный материал на русском http://citforum.ru/programming/windo...el_obj/2.shtml

Вопрос остается открытым.

[tae1980]

Сообщение от EducatedFool

Попробуйте это:
http://support.microsoft.com/kb/213566/en-us/

Вот ещё интересный материал по теме, которой может быть кому нибудь полезен http://www.intuit.ru/department/offi...baexcel_3.html

Но проблему он опять же не решает.

[doober]

Так можно получить позицию окна ,
ставте глобальный хук на мышку и проверяйте позицию окна

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim P As POINTAPI
Function Window_Excel() As Boolean
Inpt = FindWindow("xlmain", vbNullString)
If Inpt = 0 Then
Window_Excel = False
Else
Window_Excel = True
P.x = 0
P.y = 0
ret& = ClientToScreen&(Inpt, P)
End If
 
End Function