Existe alguma maneira de exibir a planilha como uma pequena janela sem barra de ferramentas?

Question

Minhas telas estão cheias de coisas, ainda preciso adicionar uma pequena planilha, talvez uma polegada de altura e menos de uma polegada de largura. Existe alguma solução para isso? Eu não faço cálculos complicados, apenas alguns cálculos simples, mas preciso dessa janela sempre no topo.

    

Answer 1

Este é um tiro no escuro, eu corro o Win 7 64bit, mas tente isto :

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 uFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2

Sub AlwaysOnTop()

  Dim hwnd As Long   Dim res As Long

  hwnd = FindWindow("XLMAIN", vbNullString)   res = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, vbNull)

End Sub

Sub NotAlwaysOnTop()

  Dim hwnd As Long   Dim res As Long

  hwnd = FindWindow("XLMAIN", vbNullString)   res = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, vbNull)

End Sub

Coloque isso no VBA e, em seguida, execute a macro alwaysontop. Veja se fica no topo. Não funciona para mim , mesmo quando o converti para 64 bits.

    

Answer 2

Private 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

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
                                                 ByVal nCmdShow As Long) As Long


Public Function ResizeAccess()
  Dim lngReturn As Long
  Dim hWnd As Long

  ' get app's window handle
  hWnd = Application.hWndAccessApp

  ' move to upper left vorner of screen 0, 0
  ' resize app window to 800 x 600
  lngReturn = SetWindowPos(hWnd, 0, 0, 0, 800, 600, 0)

  ' normalize window
  lngReturn = ShowWindow(hWnd, 1)
End Function