Código:
Sub MensajeTemporizado()
Dim Msg As Integer
Msg = CreateObject("wscript.shell").Popup("Este mensaje se cerrara en 3 segundos", 3, "Aprendiendo eXcel365", 4 + 64)
If Msg = 6 Then
MsgBox "Pulsé SI"
ElseIf Msg = 7 Then
MsgBox "Pulsé NO"
ElseIf Msg = -1 Then
MsgBox " Han pasado los 3 segundos"
'Aqui, escribirar el código de tu macro o la llamaras (Call)
End If
End Sub
Utiliza los siguientes códigos para personalizar los botones y su funcionalidad.
Tipo de botón
0 Mostrar botón Aceptar
1 Mostrar botón Aceptar y Cancelar
2 Mostrar botón Cancelar, Reintentar e Ignorar
3 Mostrar botón Sí, No y Cancelar
4 Mostrar botón Sí y No
5 Mostrar botón Reintentar y Cancelar
Tipo de icono
16 Mostrar icono de "Signo de parada"
32 Mostrar icono de "Signo de interrogación"
48 Mostrar icono de "Signo de exclamación"
64 Mostrar icono de "Signo de información"
Botón seleccionado
1 Botón Aceptar
2 Botón Cancelar
3 Botón Abortar
4 Botón Reintentar
5 Botón Ignorar
6 Botón Sí
7 Botón No
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos
