Running an application from PowerPoint

[spinacia]

Hi,
First, I am very much not a developer without any knowledge in VB...

I need to run a small clock application from within a PowerPoint presentation.
I have created a command button object in a PowerPoint slide. The code behind it is:

Private Sub Timer_Click()
Shell "C:\Temp\timer.exe", 6
End Sub

This works well without a problem. However, if the timer.exe is set to be "always on top" then the timer window becomes the active window.
I then need to click on the PowerPoint slide so it becomes active.

How do I force that at all times the PowerPoint presentation is the active window, regardless of the application being run?

Please advise what command should be added to the script so PowerPoint is always the active window.

Thanks,
--Spinacia

[Bruce Fox]

Hi Spinacia, Welcome to the Forum.

Does this help:

Option Explicit
 
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
 
Private Sub Timer_Click()
 
    Shell "C:\Temp\timer.exe", vbNormalFocus
 
    SetForegroundWindow Me.hwnd
 
End Sub

Additional info at allapi.net: http://www.mentalis.org/apilist/SetF...ndWindow.shtml

[spinacia]

Thanks Bruce.
I'll give it a try.



Spinacia.