0

エクセルVBAの質問です。Windows画面の幅(Width)、高さ(Height)を知る方法を
教えてください。UserFormのプロパティを(StartUpPosition=0：手動)に設定し、
UserFormの表示位置を操作します。 解像度をポイント単位で得るにはどの様にすればできますか？

Exceleバージョンが2003以降では、IAccessibleインターフェイスを使用して
簡単に実現できましたが,旧Excele2000ではこれは利用できません。
そこでAPI関数で下記のようにするとWindowsのピクセル単位での解像度は
判りますが、ポイント単位に変換できません。
(1ポイントは、1/72 インチ/Me.Leftなどの単位)

Option Explicit ’標準モジュール
Public Declare Function GetDesktopWindow Lib "USER32" () As Long
Public Declare Function GetWindowRect Lib "USER32" _
(ByVal hWnd As Long, lpRect As RECT) As Long
Public Type RECT
API_左 As Long
API_上 As Long
API_右 As Long
API_下 As Long
End Type


Public Sub SYS_WinAPI_画面サイズ獲得_SUB()
’Windowsデスクトップの解像度（ピクセル）を獲得
Dim mMsg as String
Dim mRes as Integer

Dim Ret As Long
Dim nRect As RECT
Ret = GetDesktopWindow
Call GetWindowRect(Ret, nRect)
'
mMsg = " 左上のx座標は" & nRect.API_左 _
& " 左上のy座標は" & nRect.API_上 & vbCrLf _
& " 右下のx座標は" & nRect.API_右 _
& " 右下のy座標は" & nRect.API_下
mRes = MsgBox(mMsg, 48, "GetWindowRect")
End If
'
この値（上・左・右・下）をポイントに変換するためにAPI関数
（GetDeviceCaps(Form.hdc, VERTSIZE)）
を利用使用とすると、ExcelのUserFormにはhdcに対応する
(デバイスコンテキストのハンドル)プロパティがありません。

ピクセル単位-->ミリ単位-->インチ単位--->ポイント単位へ変更できません。

＜もう一度質問を整理します＞
Windowsデスクトップの解像度（ピクセル）をUserFormプロパティの（ポイント）に
変換する方法を教えてください。

どうかよろしくお願いいたします。

質問者が選んだベストソリューション

Yahoo!知恵袋 5268日前