class application events

[Lucas Hernandez]

I have been trying to run the following code

created a class with
Public WithEvents appEvent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn
As Excel.Window)
MsgBox "you have resized excel"
End Sub


then a module with

Dim myObject As New ClsAppEvents

Sub testObject()
Set myObject.appEvent = Application
End Sub


run testObject....

this is supposed to show "you have resized excel"

please let me know if I need to activate something to make it work

thanks

LH

 

[Andy Pope]

Hi,

The code is correct. But the Resize event will only fire when a workbook
is resized not the application.

In order to trigger the resize event run the testobject routine and then
with the workbook not in either the Minimized or Maximized state you can
resize the workbook and the event will fire. It will also fire when
changing window state between Minimized/Maximized/Restore.

Cheers
Andy

 

[Lucas Hernandez]

Hi,

The code is correct. But the Resize event will only fire when a workbook
is resized not the application.

In order to trigger the resize event run the testobject routine and then
with the workbook not in either the Minimized or Maximized state you can
resize the workbook and the event will fire. It will also fire when
changing window state between Minimized/Maximized/Restore.

Cheers
Andy

thank you.... I think I'll have to find an API method to solve my
problem...