Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55761 / 76738 ←次へ | 前へ→

【25744】Re:画面の解像度の取得
回答  小僧  - 05/6/13(月) 14:02 -

引用なし
パスワード
   ▼ぴかる さん:
こんにちは。

APIは詳しくないので他サイトを参考にしましたが、

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

Function ResolutionPro()

  Dim X As Long, Y As Long
  
  X = GetSystemMetrics(SM_CXSCREEN) '画面の幅を取得します。
  Y = GetSystemMetrics(SM_CYSCREEN) '画面の高さを取得します。
  
    Debug.Print "現在の解像度は " & X & " × " & Y & " です。"
  
End Function

でどうでしょうか?
0 hits

【25739】画面の解像度の取得 ぴかる 05/6/13(月) 13:41 質問
【25744】Re:画面の解像度の取得 小僧 05/6/13(月) 14:02 回答
【25745】Re:画面の解像度の取得 ぴかる 05/6/13(月) 14:15 お礼
【25746】Re:画面の解像度の取得 Kein 05/6/13(月) 14:23 回答
【25747】Re:画面の解像度の取得 ぴかる 05/6/13(月) 15:10 お礼

55761 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free