Событие Workbook_WindowResize

[tae1980]

Нужно отследить изменения размеров окна. Пытаюсь использовать для этих целей событие Workbook_WindowResize(ByVal Wn As Window). Для чего в "ЭтаКнига" размещаю код:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
  Cells(1, 1) = 1111
  w = 2
End Sub

После чего всячески изменяю размер окна, но ничего не происходит.
Что я делаю не так?

[R Dmitry]

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

Нужно отследить изменения размеров окна. Пытаюсь использовать для этих целей событие Workbook_WindowResize(ByVal Wn As Window). Для чего в "ЭтаКнига" размещаю код:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
  Cells(1, 1) = 1111
  w = 2
End Sub

После чего всячески изменяю размер окна, но ничего не происходит.
Что я делаю не так?

скорей всего Вы путаете книгу ёксель и приложение ёксель
Если Вы измените размер активного окна книги excel , то событие все же наступит.
для справки : самый верхний крестик принадлежит объекту excel, а тот что пониже excel.activeWorkbook

В вашем же коде написано Workbook_WindowResize

[tae1980]

Сообщение от R Dmitry

скорей всего Вы путаете книгу ёксель и приложение ёксель
Если Вы измените размер активного окна книги excel , то событие все же наступит.
для справки : самый верхний крестик принадлежит объекту excel, а тот что пониже excel.activeWorkbook
В вашем же коде написано Workbook_WindowResize

Точно. Спасибо.
А как же отследить это событие для объекта excel?

[kuklp]

Это все в pesonal.xls

Option Explicit

Private WithEvents App As Application    ' объявляем объект Application для того, чтобы можно было отлавливать события других книг

Private Sub App_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)

End Sub

'После этого там же назначаете на открытие макрос:
Private Sub Workbook_Open()
    Set App = Application    ' назначаем объект Application для того, чтобы можно было отлавливать события других книг
    Application.WindowState = xlMaximized
End Sub
'После этого в левом выпадающем списке (объектов) кроме Workbook и (Общая область) появится также и объект Арр.
'При выборе его в правом выпадающем списке (событий) появится куча отлавливаемых событий других книг. И вы сможете в процедуре
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
'Wb.ActiveSheet.DisplayPageBreaks = True
End Sub

[tae1980]

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

Это все в pesonal.xls

Нашел одну хорошую лекцию по этой теме, как я понял это о чем ты пишешь. Вот ее часть:

Для того чтобы заставить реагировать на события объект Excel.Application, необходимо выполнить четыре шага:
1. Создать модуль, задающий собственный класс для объекта Excel.Application, в котором можно будет размещать обработчики возникающих событий. Устроен этот класс очень просто и состоит в момент создания из одной строчки, поскольку класс не имеет методов и имеет ровно одно свойство, задающее объект Application с событиями. Конечно, позже этот класс будет пополняться обработчиками событий. Вот как выглядит на этапе создания описание этого класса, которому я в своем примере дал имя AppWithEvents.
Option Explicit
'Класс, описывающий объект Application With Events.
'Класс не имеет методов, задается одним свойством.
Public WithEvents ExApp As Application
2. Следующее, что необходимо сделать - это определить объект вновь созданного класса AppWithEvents. И эта задача решается в одну строчку. Объявление объекта я поместил в раздел объявлений созданного ранее стандартного модуля. Заметьте, необходимо не только объявить объект, но и создать его, используя спецификатор New.
Public AppWithEv As New AppWithEvents
3. Третьим шагом является связывание двух объектов Application, стандартного и созданного объекта, умеющего реагировать на события. По-видимому, лучшим местом, где следует осуществить связывание, является обработчик события Open того документа, в котором описан класс AppWithEvents. Тогда после открытия этого документа и вплоть до его закрытия Excel будет реагировать на события, связанные с объектом Excel.Application. Вот как осуществляется связывание:
Private Sub Workbook_Open()
'Связывание двух объектов Application -
'стандартного и реагирующего на события.
Set AppWithEv.ExApp = Excel.Application
End Sub
4. На этом шаге созданный класс AppWithEvents можно расширить, добавив в него обработчики событий объекта Application. Я приведу пока текст только одного обработчика, который обрабатывает событие NewWorkBook, возникающее при создании новой книги.
Private Sub ExApp_NewWorkbook(ByVal Wb As Workbook)
'Обработка события - создание новой книги.
Static Num As Integer
Num = Num + 1
MsgBox ("Число вновь созданных книг - " & Num _
& vbCrLf & "Новая книга - " & Wb.Name _
& " открыта в " & Time)
End Sub

Пример работает на ура. Создал событие ExApp_WindowResize, вот код:

Private Sub ExApp_WindowResize(ByVal Wb As Workbook, ByVal Wn As Window)
 Cells(1, 1) = "aaa"
End Sub

Но оно срабатывает (как и раньше) на изменение размеров именно книги внутри приложения excel. А мне нужно отлавливать именно изменение окна приложения excel...
И что еще сложнее, лучше что бы уметь отловить не просто событие "изменение размера окна приложения excel", а два события:
1. Начало изменений размеров окна приложения excel.
2. Завершение изменения размеров окна приложения excel.