Déterminer la taille de l’écran en utilisant VBA dans Microsoft Excel

Posted on: 2020年10月22日 2020年11月12日
Tags: general-topics-in-vba

Avec la macro ci-dessous, vous pouvez renvoyer la taille de l’écran avec la fonction GetSystemMetrics32.

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, "Monitor Size (width x height)"

End Sub