eventos de applciación

02/06/2010 - 17:40 por Lucas Hernandez | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Abraham
02/06/2010 - 22:57 | Informe spam
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
Respuesta Responder a este mensaje
#2 Lucas Hernandez
02/06/2010 - 23:01 | Informe spam
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...
Respuesta Responder a este mensaje
#3 Abraham
02/06/2010 - 23:05 | Informe spam
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
Respuesta Responder a este mensaje
#4 Lucas Hernandez
02/06/2010 - 23:28 | Informe spam
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?
Respuesta Responder a este mensaje
#5 Héctor Miguel
04/06/2010 - 01:33 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida