获取用户屏幕纵横比vba excel

Sub GetScreenAspectRatio()
    Dim screenWidth As Long
    Dim screenHeight As Long
    Dim aspectRatio As Double
    
    ' 获取屏幕宽度和高度
    screenWidth = Application.Width
    screenHeight = Application.Height
    
    ' 计算纵横比
    aspectRatio = screenWidth / screenHeight
    
    ' 输出结果
    MsgBox "屏幕纵横比为：" & aspectRatio
End Sub