Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    Width As Long
    Height As Long
End Type

Public Const LOGPIXELSX As Long =  88 
Public Const LOGPIXELSY As Long =  90 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
        ByVal hDC As Long, _
        ByVal nIndex As Long _
    ) As Long


Sub Использование()
      Debug.Print GetWindowRectSize(Application.hWndAccessApp).Height
End Sub

'=================================================================================
Public Function GetWindowRectSize(hwnWindow, Optional inpx As Boolean) As RECT
'Для визначення розмірів вікон
    Dim a As Long
        a = GetWindowRect(hwnWindow, GetWindowRectSize)
        With GetWindowRectSize
            .Height = .Right - .Left
            .Width = .Bottom - .Top
        
            If Not inpx Then
                .Left = PixelToTwip(.Left)
                .Top = PixelToTwip(.Top)
                .Right = PixelToTwip(.Right)
                .Bottom = PixelToTwip(.Bottom)
                .Width = PixelToTwip(.Width)
                .Height = PixelToTwip(.Height)
            End If
        End With
End Function

Private Function TwipsPerPixel(Optional ByVal Dimension As Long = LOGPIXELSX) As Long
  Const TwipsPerInch As Long =  1440 
  Dim DesktopDC As Long
On Error GoTo ErrorHandle
  DesktopDC = GetDC(Application.hWndAccessApp) 'DesktopDC = GetDC(HWND_DESKTOP)
  TwipsPerPixel = TwipsPerInch / GetDeviceCaps(DesktopDC, Dimension)
ErrorHandle:
  Call ReleaseDC(Application.hWndAccessApp, DesktopDC) 'Call ReleaseDC(HWND_DESKTOP, DesktopDC)
  'Call Exception.RaiseAgain
End Function

'перевод твипов в пиксели
Public Function TwipToPixel(ByVal Twips As Long) As Long
  TwipToPixel = Twips / TwipsPerPixel()
End Function

'перевод пикселей в твипы
Public Function PixelToTwip(ByVal Pixels As Long) As Long
  PixelToTwip = Pixels * TwipsPerPixel()
End Function
'=================================================================================

ErrorHandle:
  Call ReleaseDC(Application.hWndAccessApp, DesktopDC) 'Call ReleaseDC(HWND_DESKTOP, DesktopDC)
  'Call Exception.RaiseAgain