Ekran Çözünürlüğünün genişlik ve yükseklik değerleri?

[hsayar]

Esenlikler,
bilgisayarımın Ekran Çözünürlüğünün genişlik ve yükseklik değerlerini excelden makro ile nasıl bir değere atarım?


Sub aaaaa()
................
ekrGen = ?
ekrYuk = ?
msgbox "Ekran çözünürlük genişiğiniz " & ekrGen & " pikseldir" '(1024 * 768 piksel için 1024)
msgbox "Ekran çözünürlük yüksekliğiniz " & ekrYuk & " pikseldir" '(1024 * 768 piksel için 768)
End Sub

 

[Haluk]

Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" _
                         (ByVal nIndex As Long) As Long
'
Sub Test()
    Dim X1 As Long, Y1 As Long
        X1 = GetSystemMetrics32(0)
        Y1 = GetSystemMetrics32(1)
    MsgBox "Ekran cozunurlugu : " & X1 & " X " & Y1
End Sub

 

[hsayar]

teşekkürler hocam

 

[hsayar]

GetSystemMetrics32(0)

hocam kırmızı ile işaretlediğim değeri 120 yapsam bile değer dönüyor, bunların anlamları nedir?

 

[hsayar]

With UserForm1
.Width = 440
'.Height = 480 'GetSystemMetrics32(0)
.Left = ((GetSystemMetrics32(1) - .Width)) / 2
CommandButton5.Left = .Width - 100
End With
[code]
 
hocam vermiş olduğunuz kodlarla userformun genişlik ve yükseklik yaralarını ekrar çöznürlük yarlarının bilmem kaçı şeklinde yaralamak istedim ama değerleri farklı galiba;
ekran 1024 * 768 iken ekrana tam oturan userform 768*549;
ekran 1280 * 1024 iken ekrana tam oturan userform 950*740,
 oluyor bu neden böyledir? arada bir orantı mevcut mudur?