none
VBA macro File Open  について RRS feed

  • 質問

  • Excel VBAで 現在のデイスプレイの高さと幅を取得するコードを教えて下さい。

    単に 高さと幅が取得できればよいのです。

    いろいろ検索しましたが、解かりませんでした。

     Yasuo Gunji

    2016年9月25日 2:37

すべての返信

  • Private Declare Function GetSystemMetrics _
        Lib "user32" _
        (ByVal nIndex As Long) As Long
    Private Const SM_CXSCREEN As Long = 0
    Private Const SM_CYSCREEN As Long = 1
    
    Sub test()
        MsgBox "デイスプレイの幅: " & GetSystemMetrics(SM_CXSCREEN) & _
        vbNewLine & "ディスプレイの高さ: " & GetSystemMetrics(SM_CYSCREEN)
    End Sub
    
    ディスプレイは1つと仮定すると、上記のコード取得できると思います。
    2016年9月25日 3:21