I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

Sorry,

Application.WindowState = xlMaximize

"Geoff" wrote:

That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

isn't there still supposed to be a d on the end?
Application.WindowState = xlMaximized
--


Gary


"JLGWhiz" wrote in message
...
Sorry,

Application.WindowState = xlMaximize

"Geoff" wrote:

That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a
userform.
If the file is minimised and the user clicks the cmdbutton again, the
code
checks to see if it is already open and prevents multiple instances. At
this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

It is not an execel application though and xlmaximize is not recognised
Here is my code

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess
As Long, _
ByVal bInheritHandle As
Long, _
ByVal dwProcessId As
Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal
lnghProcess As Long, _
lpExitCode As
Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private RetVal As Long

Public Function ShlProc_IsRunning(ShellReturnValue As Long) As Boolean

Dim lnghProcess As Long
Dim lExitCode As Long
Dim lRet As Long

lnghProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, ShellReturnValue)
If lnghProcess < 0 Then
GetExitCodeProcess lnghProcess, lExitCode '''test if help file
is running
If lExitCode < 0 Then
ShlProc_IsRunning = True
Else
ShlProc_IsRunning = False
End If
End If

End Function

Sub ShellTester()

If ShlProc_IsRunning(RetVal) = False Then '''show help file if not
already open
On Error Resume Next
RetVal = Shell("hh.exe c:\xxx.chm", 1)
On Error GoTo 0
Else
AppActivate "Vehicle Performance Analysis"

Application.WindowState = xlMaximize

'''msgbox "Help File is already loaded"
End If

End Sub

Geoff


"JLGWhiz" wrote:

Sorry,

Application.WindowState = xlMaximize

"Geoff" wrote:

That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

there's a typo,

ActiveWindow.WindowState =xlMaximized

--


Gary


"Geoff" wrote in message
...
That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At
this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

Ok that's got over the variable issue but its still not working. As I say
focus is switched from Excel to the app but nothing happens beyond that.

Geoff

"Gary Keramidas" wrote:

there's a typo,

ActiveWindow.WindowState =xlMaximized

--


Gary


"Geoff" wrote in message
...
That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At
this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff

Geoff i am only new to this but have you tried

ActiveWindow.Visible=True

dont know if it will work but thought it might be worth a try.

"Geoff" wrote:

Ok that's got over the variable issue but its still not working. As I say
focus is switched from Excel to the app but nothing happens beyond that.

Geoff

"Gary Keramidas" wrote:

there's a typo,

ActiveWindow.WindowState =xlMaximized

--


Gary


"Geoff" wrote in message
...
That returns 'variable not defined'

Geoff

"JLGWhiz" wrote:

ActiveWindow.WindowState = xlMaximize

"Geoff" wrote:

I have created a Help file which is invoked from a cmdbutton on a userform.
If the file is minimised and the user clicks the cmdbutton again, the code
checks to see if it is already open and prevents multiple instances. At
this
stage I could also generate a message to that effect.
However i thought it would be neat to emulate a click on the taskbar icon
and make the .chm the top window again.
I have tried
AppActivate "xxx Analysis"
ActiveWindow.WindowState = vbNormalFocus
but while the file is activated it is not brought back up again.
Can someone please point the way?

T.I.A.
Geoff