Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box with a Timer
Is there a way to have a Message Box that displays a value and then
disappears after a time delay, say 2 seconds? I would like to create a key-stroke macro which when I hit <ctrl-t for example, the macro will run and display a result in a message box. I'd then like the box to disappear after 2 seconds without the user having to click on "Yes". Thanks for the help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box with a Timer
Here is some code for you. Note that you need to reference the project to
"Windows Script Host Object Model" (Tools - References -...) Public Sub MessageTest() Dim SH As IWshRuntimeLibrary.WshShell Dim Res As Long Set SH = New IWshRuntimeLibrary.WshShell Res = SH.Popup(Text:="Click Me", secondstowait:=2, _ Title:="Hello, World", Type:=vbOKOnly) End Sub -- HTH... Jim Thomlinson "tom" wrote: Is there a way to have a Message Box that displays a value and then disappears after a time delay, say 2 seconds? I would like to create a key-stroke macro which when I hit <ctrl-t for example, the macro will run and display a result in a message box. I'd then like the box to disappear after 2 seconds without the user having to click on "Yes". Thanks for the help. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box with a Timer
Perhaps worth mentioning this method works for some but not for others. The
conclusion from a long discussion last July was if it works - fine - but don't expect it to work if distributing. There didn't appear to be anything in common in terms of OS, XL version or WSHOM.OCX version in systems in which it worked / didn't work, which was puzzling. Regards, Peter T "Jim Thomlinson" wrote in message ... Here is some code for you. Note that you need to reference the project to "Windows Script Host Object Model" (Tools - References -...) Public Sub MessageTest() Dim SH As IWshRuntimeLibrary.WshShell Dim Res As Long Set SH = New IWshRuntimeLibrary.WshShell Res = SH.Popup(Text:="Click Me", secondstowait:=2, _ Title:="Hello, World", Type:=vbOKOnly) End Sub -- HTH... Jim Thomlinson "tom" wrote: Is there a way to have a Message Box that displays a value and then disappears after a time delay, say 2 seconds? I would like to create a key-stroke macro which when I hit <ctrl-t for example, the macro will run and display a result in a message box. I'd then like the box to disappear after 2 seconds without the user having to click on "Yes". Thanks for the help. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box with a Timer
Thanks for the lead and I understand that it might not always work.
I can't seem to find how to install the Windows Script Host Object Model. There is not a "references" under my Tools menu bar. "tom" wrote: Is there a way to have a Message Box that displays a value and then disappears after a time delay, say 2 seconds? I would like to create a key-stroke macro which when I hit <ctrl-t for example, the macro will run and display a result in a message box. I'd then like the box to disappear after 2 seconds without the user having to click on "Yes". Thanks for the help. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Box with a Timer
There is not a "references" under my Tools menu bar.
It is on the Tools menu in VBA, not Excel. Choose References, scroll down to "Windows Scripting Host Object Model" and check it. Dim ISH As IWshRuntimeLibrary.WshShell Dim Res As VbMsgBoxResult Set ISH = New IWshRuntimeLibrary.WshShell Res = ISH.Popup(Text:="Hello", secondstowait:=3) Debug.Print Res -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "tom" wrote in message ... Thanks for the lead and I understand that it might not always work. I can't seem to find how to install the Windows Script Host Object Model. There is not a "references" under my Tools menu bar. "tom" wrote: Is there a way to have a Message Box that displays a value and then disappears after a time delay, say 2 seconds? I would like to create a key-stroke macro which when I hit <ctrl-t for example, the macro will run and display a result in a message box. I'd then like the box to disappear after 2 seconds without the user having to click on "Yes". Thanks for the help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Timer | Excel Worksheet Functions | |||
Stopping a Timer / Running a timer simultaneously on Excel | Excel Discussion (Misc queries) | |||
vba timer | Excel Programming | |||
timer | Excel Programming | |||
Timer | Excel Programming |