Ekran Çözünürlüğünü Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
NOT: 64 bit Excel sürümü kullananlarda kodlar çalışmayabilir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub DisplayMonitorInfo()
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points
MsgBox Format(w, "#,##0") & " x " & Format(h, "#,##0"), _
vbInformation, "Ekran Çözünürlüğü (uzunluk x Genişlik)"
End SubAçıklama
Kodları bir butona atadıktan sonra çalıştırmanız neticesinde aşağıdaki gibi sonuç elde edebilirsiniz:NOT: 64 bit Excel sürümü kullananlarda kodlar çalışmayabilir.
Faydalanılması temennisiyle
