forms

07/10/2003 - 02:59 por ErickGB | Informe spam
Hay algun control en las macros de excel como el Timer de
VB.
La idea es crear un formulario de presentacion cuando se
habre el libro pero no se como decirle que este alli solo
x segundos.Ademas como hago para que el form no tenga
bordes??
 

Leer las respuestas

#1 Héctor Miguel
07/10/2003 - 10:12 | Informe spam
Hola, Erick !

... algun control en las macros de excel como el Timer de VB.
... crear un formulario de presentacion cuando se abre el libro ... que este alli solo x segundos.
... como hago para que el form no tenga bordes??



1) pon las siguientes lineas en el modulo de codigo del libro 'ThisWorkbook'
para que el formulario 'se muestre' al momento de abrir el libro... ==Private Sub Workbook_Open()
NombreDelFormulario.Show
End Sub

2) pon las siguientes lineas en el modulo de codigo del formulario
para que el formulario se muestre 'solo' por unos ['digamos' 5?] segundos...
=> se puede usar [tambien] el control 'Timer' en VBA, pero [creo que] los siguientes ejemplos son mas 'sencillos' <= ;)
opcion 1.- 'congela' TODA actividad de la aplicacion [excepto el re-calculo o impresion] ==Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:05")
Unload Me
End Sub
opcion 2.- 'permite' que [por el mismo codigo?] se 'ejecuten' otras acciones ==Private Sub UserForm_Activate()
Dim Actual As Date, Cerrar As Date
Actual = TimeValue(Now())
Cerrar = TimeValue(Now()) + TimeValue("0:00:05")
Do While Actual < Cerrar
DoEvents
Actual = TimeValue(Now())
Loop
Unload Me
End Sub
'tip' para 'evitar' que el usuario 'cierre' [o cancele] la presentacion del formulario ==Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

==> pregunta: ¿porque 'te estorban' los bordes del formulario???
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares