Bestimmen Sie die Bildschirmgröße mit VBA in Microsoft Excel
Mit dem folgenden Makro können Sie die Bildschirmgröße mit der Funktion GetSystemMetrics32 zurückgeben.
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
`