ディスプレイサイズを取得する。

VBAでディスプレイのサイズ(解像度)を取得するにはGetSystemMetrics関数を利用して取得します。

GetSystemMetrics関数の引数に 0(幅)または1(高さ)を指定し、それぞれの値を取得します。

　●ディスプレイサイズの取得

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

'******************************************************************
'　ディスプレイサイズの取得
'******************************************************************
Function GetDispSize()

    Debug.Print "ディスプレイ解像度"
    
    'ディスプレイの幅×高さを取得
    Debug.Print GetSystemMetrics(0) & "×" & GetSystemMetrics(1)
    
End Function

　■実行結果