Trigerr a macro every minutes

[lindir]

Hi guys!

I need to trigger a macro every minute. Anybody has an idea to do that?

I don't know which function or which events I can use.

Thanks in advance.

[JohnGoldsmith]

You could have a look at the NOW() function (which fires every minute).

Maybe something like this in a Doc user cell (or some other central place):

Code Select Expand


User.MyTimerCell = NOW()+CALLTHIS("ThisDocument.MyProc")

Otherwise there are other code based timer methods that might be of interest:

   
• Scheduling Events With OnTime And Windows Timers
• Pausing Code Execution
• VBA Wait and Sleep Functions – Explained

Hope that helps.

Best regards

John

[lindir]

Thank for your response JohnGoldsmith
In the document shapesheet in the user defined cells section, I insert a row with the foloing formulate

Code Select Expand

= NOW()+CALLTHIS("ThisDocument.MyProc")


And then in  the macro editor in Thisdocuments I wrote this code:

Code Select Expand

Sub MyProc()

MsgBox "I'm triggered at " & Now()

End Sub

But saldy nothing happend

[JohnGoldsmith]

Hi,

You need to make sure you include a reference to the incoming shape (in this case 'TheDoc') in your procedure's arguements.  For example:

Code Select Expand

Public Sub MyProc(ByRef shpIn As Visio.Shape)
    MsgBox "I'm triggered at " & Now()
End Sub

Let me know if that works for you.

Best regards

John

[lindir]

Work with the reference.

Thank you very much