Para Hector!!!

23/03/2006 - 20:17 por DOORS | Informe spam
Hola Hector, mira tengo esta macro que lo que hace es que me ejecuta el
asistente de office con el mensaje de que se encuentra en adquisicion de
activo, lo que no logro poder hacer es lo del tiempo, es decir que me
aparezca cada 10 segundos y que a los 10 segundos se cierre : (

AYUDAME !!!!!!!

Gracias!!!
Sub Asistente()
'

With Assistant.NewBalloon
.BalloonType = msoBalloonTypeBullets
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "F-98"
.Labels(1).Text = "Se encuentra en Adquisición de Activo"
.Show
End With

End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
24/03/2006 - 07:48 | Informe spam
hola, DOORS !

... esta macro... ejecuta el asistente de office con el mensaje de que se encuentra en adquisicion de activo
... no logro... que me aparezca cada 10 segundos y que a los 10 segundos se cierre : ( [...]
Sub Asistente()
With Assistant.NewBalloon
.BalloonType = msoBalloonTypeBullets
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "F-98"
.Labels(1).Text = "Se encuentra en Adquisición de Activo"
.Show
End With
End Sub



1) un 'asistente'... [al igual que los MsgBoxes] REQUIERE [y se espera hasta...] que el usuario 'le de una respuesta'
2) [aunque] me parece exagerado 10 segundos 'de asistente' por 10 segundos 'de trabajo'...
[supongo que ya encontraras los 'lapsos' de tiempo que mejor se acomoden a las necesidades del 'operador'] :))
3) hay otra forma [mas 'barata'] de estar mostrando mensajes, que te expongo a continuacion...
muestra un mensaje que si el usuario NO 'lo pela'... se cierra automaticamente en el tiempo [segundos] que TU establezcas
[en el ejemplo estoy 'dandole' un tiempo en pantalla de 2 segundos y programando la siguiente 'aparicion' a los 10 segundos] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

a) copia las siguientes lineas en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_BeforeClose(Cancel As Boolean)
Terminar = True
End Sub

b) prueba con las siguientes lineas en un modulo de codigo 'normal' ==Public Terminar As Boolean
Sub Mensaje_temporal()
If Terminar Then Exit Sub
CreateObject("WScript.Shell").Popup _
"Se encuentra en Adquisición de Activo" & vbCr & _
"Este aviso desaparecerá en 2 segundos...", 2, "Mensaje temporal"
Application.OnTime Now + TimeSerial(0, 0, 10), "Mensaje_temporal"
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida