En esta ocasión de prensan dos ejemplos de Activewindow, en el primero se muestra el nombre de la ventana activa y un segundo en el que se realiza un efecto de animación.
A través de la primera función se podrá realizar la identificación de la ventana de Excel que se está usando en esos momentos. Para que funcione se ha utilizado la propiedad MsgBox seguido por las comillas que indican que será un texto que se desea que aparezca; por ese motivo se le indica a la macros que deberá de ser el siguiente : "The name of the active window is".
Para el segundo ejemplo se investigó una manera más dinámica de visualización de una ventana de Excel, para poder explicar este ejemplo se debe reconocer que hay tres estados de ventana diferentes que una hoja de trabajo puede tener; Minimizado, maximizado, y Normal. Puede establecer el estado de la ventana con una de estas líneas de código
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
ActiveWindow.WindowState = xlNormal
Y, por supuesto, una vez que se puede programar un elemento visual que se puede lanzar en un bucle y crear un "efecto de animación". Esta macro cambiará de tamaño gradualmente de una hoja de trabajo de pequeño a maximizado, haciendo que la hoja de trabajo parezca estar creciendo.
En ambos casos se le da uso a la función Activewindow, la primera es el ejemplo más sencillo y el segundo es más dinámico.
Descargar ejemplos: active window-two functions
Por: Silvana Sofía
15/04/2019 a las 11:04 am
gracias, quiero y necesito aprender, pero es tan grande; creo qu ela mejor manera de hacerlo es empezando por la sintaxis.
03/05/2020 a las 11:00 pm
Hola, requiero por favor de su colaboración, tengo nivel principiante en vba y no doy con la solución.
Tengo un libro con mi macro, el cual al abrirlo, ejecuta un código de SplashScreen. Para que ese SplashScreen se note, necesito que todos los demás libros de excel que estan abiertos e incluso este mismo, se minimicen y luego al final del SplashScreen, se muestre el libro de donde se ejecutó el código.
Cuando no tengo ningún otro libro de excel abierto, corre bien. Pero si hay otro libro abierto, presenta errores: demora para ejecutarse, no abre en primer plano, se ejecuta el SplashScreen y no es visible porque esta minimizado, y al terminar el SplashScreen, se abre el otro libro y no en donde esta la marco.
Tengo esto:
Sub Auto_open()
Application.WindowState = xlMinimized
UserForm1.Show ' aca es donde ejecuta el SplashScreen.
End Sub
----------------------------------
En el UserForm1:
está el código para el SplashScreen y luego el termina con:
Application.WindowState = xlMaximized
End Sub