Code VBA lấy độ phân giải của màn hình

[moihocvba]

Xin chào cả nhà GPE.
Cho em hỏi VBA có code nào có thể lấy độ phân giải của màn hình không ạ, ví dụ độ phân giải 1920x1080 hoặc 1366x768,...
Mục đích là để khi mở file excel thì phát hiện độ phân giải của màn hình mà điều chỉnh độ thu phóng của các sheet tự động để vừa khít với màn hình ạ.
Vì em dùng laptop với máy tính màn, 2 màn hình lớn nhỏ khác nhau, đồng bộ bằng google drive, mỗi lần mở lên phải chính thu phóng các sheet trong file excel rất vất vả ạ!
Em xin cám ơn !

 

[ongke0711]

Cho em hỏi VBA có code nào có thể lấy độ phân giải của màn hình không ạ, ví dụ độ phân giải 1920x1080 hoặc 1366x768,...

Code này:

Option Explicit

#If VBA7 Then
    Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else
    Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If
Function getScreenRes() As String
    Dim w As Long, h As Long
    w = GetSystemMetrics32(0) 'in points
    h = GetSystemMetrics32(1)
    getScreenRes = w & " x " & h
End Function

 

[johnnylinhanh]

Code lượm lặt trên google:

#If VBA7 Then
    Declare PtrSafe Function GetSystemMetrics Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else
    Declare Function GetSystemMetrics Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If

Sub Screenresolution()
Dim x&, y&
x = GetSystemMetrics(0)
y = GetSystemMetrics(1)
MsgBox "Your current screen resolution is " & x & "x" & y, vbOKOnly, "Screen resolution Info."
End Sub

 

[moihocvba]

Code này:

Option Explicit

#If VBA7 Then
    Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else
    Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If
Function getScreenRes() As String
    Dim w As Long, h As Long
    w = GetSystemMetrics32(0) 'in points
    h = GetSystemMetrics32(1)
    getScreenRes = w & " x " & h
End Function

Dạ code này đúng rồi ạ, em cám ơn nhiều ạ!

Cho em hỏi có cách nào lấy thông số Scale luôn không ạ, vì mức độ thu phóng của sheet Excel cũng bị ảnh hưởng bởi thông số này ạ! Ví dụ 100%, 150%, 200%.

 

[daituanduy96]

Dạ code này đúng rồi ạ, em cám ơn nhiều ạ!

Cho em hỏi có cách nào lấy thông số Scale luôn không ạ, vì mức độ thu phóng của sheet Excel cũng bị ảnh hưởng bởi thông số này ạ! Ví dụ 100%, 150%, 200%.

View attachment 274662

Sao mình chạy báo lỗi bạn ạ

 

[thnghiachau]

Dạ code này đúng rồi ạ, em cám ơn nhiều ạ!

Cho em hỏi có cách nào lấy thông số Scale luôn không ạ, vì mức độ thu phóng của sheet Excel cũng bị ảnh hưởng bởi thông số này ạ! Ví dụ 100%, 150%, 200%.

View attachment 274662

tham khảo cái ni...lấy scale display

 

[moihocvba]

tham khảo cái ni...lấy scale display

Cảm ơn bạn, để mình nghiên cứu xem nhé!