eventos de applciación

Una preguntita nates de revisar el codigo... ¿no seria mas facil usar
el evento "WindowResize" del libro?

Saludos

Abraham



On 2 jun, 10:40, Lucas Hernandez wrote:

He estado tratando de correr el siguiente codigo

en un modulo de clases
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

despues en un modulo normal

Dim myObject As New ClsAppEvents

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


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH

Abraham wrote:

Una preguntita nates de revisar el codigo... ¿no seria mas facil usar
el evento "WindowResize" del libro?

Saludos

Abraham



On 2 jun, 10:40, Lucas Hernandez wrote:

He estado tratando de correr el siguiente codigo

en un modulo de clases
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

despues en un modulo normal

Dim myObject As New ClsAppEvents

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


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH

Abraham tienes un ejemplo...

Entra al modulo de libro (ThisWorkBook, nombre por defecto), ahi pega
esto:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
MsgBox "Hey, cambiaste de tamaño el entorno del archivo"
End Sub


OJO, es para el archivo, no para toda la "instancia" Excel

Abraham

Abraham wrote:

Una preguntita nates de revisar el codigo... ¿no seria mas facil usar
el evento "WindowResize" del libro?

Saludos

Abraham



On 2 jun, 10:40, Lucas Hernandez wrote:

He estado tratando de correr el siguiente codigo

en un modulo de clases
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

despues en un modulo normal

Dim myObject As New ClsAppEvents

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


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH

Trabaja con el workbook pero no a nivel de windows... si lo hace... como
se hace?

hola, Lucas !

(hasta donde se) el control de cambios en las dimensiones de la ventana de la aplicacion
esta "fuera del control" en los eventos, aun por modulos de clase :-((
solo puedes monitorear cambios (windowresize) en la ventana de los libros

(dicho sea de paso) para este caso tampoco es necesario un modulo de clase
prueba el siguiente ejemplo solo en el modulo del ThisWorkbook:

Private WithEvents xlApp As Application
Private Sub Workbook_Open()
Set xlApp = Application
End Sub
Private Sub xlApp_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
MsgBox "modificaste las dimensiones de la ventana de la aplicacion !!!"
End Sub

ahora, modifica la ventana DEL LIBRO y lo veras en accion

para mayor informacion, revisa la siguiente conversacion: http://tinyurl.com/29j4b38

saludos,
hector.

__ OP __

He estado tratando de correr el siguiente codigo

en un modulo de clases
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

despues en un modulo normal

Dim myObject As New ClsAppEvents

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

corro el proceso testObject sin ningun error
supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor déjenoslo saber