caja de dialogo con VBA
Iniciado por
Nello
, abr 02 2014 17:46
Esto también te interesa!
PREGUNTAS SIMILARES
#2
Publicado 03 abril 2014 - 03:09
Crea un formulario llamado formEstatus y allí coloca una etiqueta llamada eti1, luego setea la propiedad ShowModal en falso. Esto permitirá que el código corra mientras el formulario sea desplegado:
Sub mostrar_form()
Load formEstatus
formEstatus .eti1.Caption = "Comienzo"
formEstatus.Show
formEstatus.Repaint
'Carga el formulario y el texto
formEstatus.eti1.Caption = "algo"
formEstatus.Repaint
codigo aqui
formEstatus.eti1.Caption = "algo mas"
formEstatus.Repaint
'codigo aqui
formEstatus.eti1.Caption = "Fin"
formEstatus.Repaint
Application.Wait (Now + TimeValue("0:00:01"))
formEstatus.Hide Unload
formEstatus
‘oculta y descarga el formulario
End Sub
