Excel VBA質問箱 IV

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

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


57452 / 76732 ←次へ | 前へ→

【24017】Re:画面の解像度、DPI設定の取得
回答  bykin  - 05/4/9(土) 23:26 -

引用なし
パスワード
   こんばんわ。

いろいろ方法出てるみたいやね。
で、わても一案。レジストリからデータ取得する方法を考えてみました。

Sub test()
  Dim WSH As Object
  Dim DPI As String
  Dim RSL As String
  
  Set WSH = CreateObject("Wscript.Shell")
  DPI = WSH.RegRead("HKEY_CURRENT_CONFIG\Display\Settings\DPILogicalX")
  RSL = WSH.RegRead("HKEY_CURRENT_CONFIG\Display\Settings\Resolution")
  RSL = Replace(RSL, ",", " * ")
  MsgBox "DPISetting : " & DPI & vbCrLf & _
      "Resolution : " & RSL
  Set WSH = Nothing
End Sub

詳しくはWSH(WindowsScriptingHost)をネット検索してみてください。
試してみてな。
ほな。
0 hits

【24003】画面の解像度、DPI設定の取得 やま 05/4/9(土) 19:22 質問
【24004】Re:画面の解像度、DPI設定の取得 ちゃっぴ 05/4/9(土) 19:37 回答
【24009】Re:画面の解像度、DPI設定の取得 やま 05/4/9(土) 22:10 質問
【24011】Re:画面の解像度、DPI設定の取得 Kein 05/4/9(土) 22:52 回答
【24013】Re:画面の解像度、DPI設定の取得 Kein 05/4/9(土) 23:05 回答
【24019】Re:画面の解像度、DPI設定の取得 やま 05/4/10(日) 0:15 お礼
【24016】Re:画面の解像度、DPI設定の取得 ちゃっぴ 05/4/9(土) 23:12 回答
【24022】Re:画面の解像度、DPI設定の取得 やま 05/4/10(日) 0:22 お礼
【24017】Re:画面の解像度、DPI設定の取得 bykin 05/4/9(土) 23:26 回答
【24021】Re:画面の解像度、DPI設定の取得 やま 05/4/10(日) 0:20 発言
【24036】Re:画面の解像度、DPI設定の取得 bykin 05/4/10(日) 16:08 発言
【24024】DPI設定の取得 やま 05/4/10(日) 1:04 質問
【24025】Re:DPI設定の取得 ちゃっぴ 05/4/10(日) 1:24 回答
【24026】Re:DPI設定の取得 やま 05/4/10(日) 1:40 発言
【24028】Re:DPI設定の取得 やま 05/4/10(日) 2:06 発言
【24029】Re:DPI設定の取得 Kein 05/4/10(日) 10:40 発言
【24039】Re:DPI設定の取得 やま 05/4/10(日) 19:01 お礼
【24054】OSに依存 やま 05/4/11(月) 9:35 質問
【24057】Re:OSに依存 Kein 05/4/11(月) 11:38 発言
【24063】Re:OSに依存 やま 05/4/11(月) 15:10 発言

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