Message Box with a Timer

[Guest]

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.

 

[Guest]

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

 

[Peter T]

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

 

[Guest]

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.

 

[Chip Pearson]

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