Snasui Excel Forum

Code: Select all

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Sub VerifyScreenResolution(Optional Dummy As Integer)
   
Dim x  As Long
Dim y  As Long
Dim MyMessage As String
Dim MyResponse As VbMsgBoxResult
   
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    If x = 1366 And y = 768 Then
        Else
        MyMessage = "ความละเอียดหน้าจอของคุณคือ " & x & " X " & y & vbCrLf & " โปรแกรมนี้ " & _
ออกแบบในความละเอียดหน้าจอที่ 1366 X 768   & "ซึ่งเป็นมุมมองที่เหมาะสมกับจอภาพ ไม่ล้นจอเกินไป" & _
vbCrLf & "คุณต้องการเปลี่ยนแปลงความละเอียดหน้าจอหรือไม่"
        MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "ปรับแต่งความละเอียดหน้าจอ")
    End If
    If MyResponse = vbYes Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
    End If
End Sub

Code: Select all

Private Sub Workbook_Open()
    
    Call VerifyScreenResolution

End Sub

Code: Select all

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
#Else
    Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
#End If