Barra de progreso en macro

[Gsus]

Buenas, 

Tengo una macro que es bastante larga en función del número de registros que se traten cada vez y con Application.StatusBar, por ejemplo:

Application.StatusBar = "Realizando cálculos..."

etc.

Voy comentando el progreso de la macro hasta el final. El caso es que si tienes de tema de office el blanco, el texto sale en negro y el fondo verde, así que no se puede percibir bien el mensaje. Para poder verlo en condiciones, hay que cambiar el tema de office a negro, gris o multicolor. Estuve buscando para añadir alguna barra de progreso, pero no supe cómo hacerlo sin desactivar Application.ScreenUpdating

¿Se os ocurre alguna alternativa? 

Gracias. 

[Israel Cassales]

¡Hola! Desconozco si es posible mostrar la barra de progreso incorporada mientras Application.ScreenUpdating está desactivado, según yo no, pero puedo estar equivocado.

Lo que te podría comentar es que si deseas mostrar el avance, podrías crear tu propia barra de progreso.

Puedes crear un formulario y utilizar un control de etiqueta Label para mostrar el progreso. Puedes cambiar el ancho del control de etiqueta a medida que avanza tu código utilizando la propiedad Width del control de etiqueta. Además puedes cambiar el color de fondo del control de etiqueta utilizando la propiedad BackColor.

Otra opción es utilizar la barra de estado StatusBar como una barra de progreso. Puedes utilizar caracteres Unicode para simular una barra de progreso.

 

[Gerson Pineda]

Hola 

hace 5 horas, Gsus dijo:

Voy comentando el progreso de la macro hasta el final

Para que lo tomes en cuenta, las barras de progreso personalizadas, lo que provocan es ralentizar nuestras automatizaciones, por lo tanto, no son recomendables, a fin de cuentas, prácticamente nadie se va a quedar mirándola hasta que termine el proceso y aún más, si dura mucho tiempo