как в VBA определить разрешение экрана

Question

столкнулась с задачей, где при любом разрешении экрана, при загрузке проекта формочка должна возникнуть в строго определенном месте
может кто знает как программно это сделать?
буду очень признательна

Answer 1

Использовать API:

Option Explicit

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Public Const HORZRES = 8
Public Const VERTRES = 10
Public Const BITSPIXEL = 12

Public Sub GetVideoMode(ByRef Width As Long, ByRef Height As Long, ByRef Depth As Long)
    Dim hDC As Long
    hDC = GetDC(GetDesktopWindow())
    Width = GetDeviceCaps(hDC, HORZRES)
    Height = GetDeviceCaps(hDC, VERTRES)
    Depth = GetDeviceCaps(hDC, BITSPIXEL)
    ReleaseDC GetDesktopWindow(), hDC
End Sub

Sub sss()
   Dim w As Long, h As Long, d As Long
   GetVideoMode w, h, d
   Debug.Print w, h, d
End Sub

p.s. источник:
http://web.vrn.ru/freestyler/faqvb/vbfaq.htm#1