Can i keep my Excel page always on top? Any idea?

[mtheriault2000]

Hello to all

Any idea on how i could keep my Excel sheet always on top of others. I produce some calculated data that i need to traspose to another web application. A fastudious operation to go back and forth.

I did try Deskpin and File Box Extender. Didn't seem to work with Excel. Did wok for a web page.

I'm using Windows 7 and Excel 2007

Any help greatly appreciated
Martin

 

[mtheriault2000]

Re: Can i keep my Excel page always on top? Resolve

Hello

I finally resolve the problem from a solution that i found on the net. Using it, my Excel sheet stay on top of all other application

Original post
http://www.xtremevbtalk.com/showthread.php?t=307317

My slightly modified code

Option Explicit
Public Ontop As Boolean
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
   ByVal hwndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
   ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Sub TestShowXLOnTop()
    If Ontop = False Then
        Ontop = True
        RANGE("R_Ontop") = "T"
        ShowXLOnTop True
    Else
        Ontop = False
        RANGE("R_Ontop") = ""
        ShowXLOnTop False
    End If
End Sub
Public Function ShowXLOnTop(Ontop As Boolean)
Dim hXL As Long, setting As Long
If Ontop Then setting = HWND_TOPMOST Else setting = HWND_NOTOPMOST
hXL = Application.hwnd
SetWindowPos hXL, setting, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Function
Sub TestShowXLNormal()
ShowXLOnTop False
End Sub

Martin