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.

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.

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" <[email protected]> wrote in message
news:[email protected]...
> 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.

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.

> 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" <[email protected]> wrote in message
news:[email protected]...
> 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.