Como Minimizar todas las Aplicaciones desde Excel
Amigo, yo también le hago a la programación, de hecho fui experto, pero me di cuenta que aún me falta, por eso deje de serlo.
Tengo una macro que trabaja básicamente con formularios, para lo cual cuando ingreso o abro el archivo dejo invisible excel y solo muestro los formularios. (Application. Visible=False)
Pero como tengo otras aplicaciones abiertas, como por ejemplo Outlook, Messenger, y aplicaciones internas de la compañía, no se aprecia o mejor dicho no se ve bien, entonces necesito saber como poder minimizar estas otras aplicaciones cuando abra el archivo y/o cuando lo active en caso de que me cambie de aplicación.
De Antemano muchas gracias.
Tengo una macro que trabaja básicamente con formularios, para lo cual cuando ingreso o abro el archivo dejo invisible excel y solo muestro los formularios. (Application. Visible=False)
Pero como tengo otras aplicaciones abiertas, como por ejemplo Outlook, Messenger, y aplicaciones internas de la compañía, no se aprecia o mejor dicho no se ve bien, entonces necesito saber como poder minimizar estas otras aplicaciones cuando abra el archivo y/o cuando lo active en caso de que me cambie de aplicación.
De Antemano muchas gracias.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Tendrías que aprender a trabajar con las API's para resolver tu problema. No te lo explico porque es muy extenso.
[email protected]
[email protected]
OK. ¿Tienes alguna dirección o algún manual en donde pueda aprender sobre las API's aplicadas a Visual Basic para exel?
Muchas Gracias.
Muchas Gracias.
Un pequeño ejemplo que me encontré para que lo adaptes a tus necesidades:
# 'Función Api FindWindow para buscar el HWND
# Private Declare Function FindWindow _
# Lib "user32" _
# Alias "FindWindowA" ( _
# ByVal lpClassName As String, _
# ByVal lpWindowName As String) As Long
#
# 'Función ShowWindow para maximizar , minimizar etc..
# Private Declare Function ShowWindow _
# Lib "user32" ( _
# ByVal hwnd As Long, _
# ByVal nCmdShow As Long) As Long
#
# 'Constantes para el api ShowWindow
# Const SW_HIDE = 0
# Const SW_NORMAL = 1
#
# Dim Handle As Long
#
# 'Ocultar ventana
# Private Sub Command1_Click()
# Handle = FindWindow(vbNullString, "MSN Messenger")
# Call ShowWindow(Handle, SW_HIDE)
# End Sub
[email protected]
# 'Función Api FindWindow para buscar el HWND
# Private Declare Function FindWindow _
# Lib "user32" _
# Alias "FindWindowA" ( _
# ByVal lpClassName As String, _
# ByVal lpWindowName As String) As Long
#
# 'Función ShowWindow para maximizar , minimizar etc..
# Private Declare Function ShowWindow _
# Lib "user32" ( _
# ByVal hwnd As Long, _
# ByVal nCmdShow As Long) As Long
#
# 'Constantes para el api ShowWindow
# Const SW_HIDE = 0
# Const SW_NORMAL = 1
#
# Dim Handle As Long
#
# 'Ocultar ventana
# Private Sub Command1_Click()
# Handle = FindWindow(vbNullString, "MSN Messenger")
# Call ShowWindow(Handle, SW_HIDE)
# End Sub
[email protected]
