Time delay in VBA

[Newbie]

Hello,
How can I introduce a time delay (5 seconds for ex) in VBA Project ?
Thanks

 

[John]

Hello,
How can I introduce a time delay (5 seconds for ex) in VBA Project ?
Thanks

Newbie,
What do you mean by time delay? Are you looking to delay execution of
the macro or do you want to insert a delay in a project task or tasks?

John
Project MVP

 

[Newbie]

Hello John,
I need to slow down the running macro during 5 seconds (temporisation?)
because the screen updating is too slow. There is a VBA function in Excel to
do that, but I don't know it in Project.
Thanks

 

[Rod Gill]

Screen updating should finish before your macro can continue. However to
delay 5 seconds try:

Sub Delay()
Dim Tim As Single
Tim = Timer
Do Until Timer - Tim > 5
DoEvents
Loop
End Sub

DoEvents tells VBA to go away and handle any events (such as screen updating
maybe) then come back and continue.

 

[Newbie]

Wonderful! Thanks!

Screen updating should finish before your macro can continue. However to
delay 5 seconds try:

Sub Delay()
Dim Tim As Single
Tim = Timer
Do Until Timer - Tim > 5
DoEvents
Loop
End Sub

DoEvents tells VBA to go away and handle any events (such as screen updating
maybe) then come back and continue.

--

Rod Gill
Project MVP
Visit www.msproject-systems.com for Project Companion Tools and more

 

[John]

Wonderful! Thanks!

Newbie,
I've got an even better approach. In all of my macros that export data
from Project to Excel I invoke the ScreenUpdating Property and set it to
false. The same property is available for Project. Graphic redraw is one
of the biggest waster of time when running a VBA procedure, and most of
the time the user doesn't really need the results until the macro is
finished anyway.

John
Project MVP

 

[Ray McCoppin]

A better way to do this is to use the Win32 API. Like this.

In the Declarations section of your module, include this:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Then in your Sub, use it like so:

Sleep 1000 ' to make your macro "sleep" for one second ( 1000 milliseconds )

--
Ray McCoppin

http://www.randsmanagement.com
Views Service Monitor
SRS gantt charts