2023/05/28

ドキュメント座標～スクリーン座標間の換算

• １．スクリーン座標とドキュメント座標の関係
• 　よりみち（PointsToScreenPixelsX/Yメソッドの異常値）
• ２．ポイントとピクセルの関係
• ３．ディスプレイ拡大率
• ４．Excelの表示倍率
• ５．ウィンドウ枠の固定と画面分割
• 　５ー１．特徴
• 　５ー２．領域の数
• 　５ー３．各領域の指定方法
• 　５ー４．分割領域の寸法など
• 　　５ー４ー１．行数・列数
• 　　５ー４－２．非可視領域の距離
• 　　５ー４ー３．分割部の幅・高さ
• 　５ー５．分割時の補正の考え方
• ６．換算の方法
• ７．ツールの紹介
• 　７ー１．概要
• 　７ー２．ワークシート
• 　　７ー２ー１．シート上のレイアウト
• 　　７ー２ー２．シートモジュール
• 　　　７ー２ー２ー１．①測定用ユーザーフォームの起動
• 　　　７ー２ー２ー２．⑤ユーザーフォームの位置にマウスを移動
• 　　　７ー２ー２ー３．⑥シート上の図形の位置にマウスを移動
• 　　　７ー２ー２ー４．⑦マウスの位置にユーザーフォームを移動
• 　　　７ー２ー２ー５．⑧図形の位置にユーザーフォームを移動
• 　　　７ー２ー２ー６．⑨マウスの位置に図形を移動
• 　　　７ー２ー２ー７．⑩ユーザーフォームの位置に図形を移動
• 　７ー３．標準モジュール（Module1）
• 　　７ー３ー１．Win32 API関数の宣言
• 　　７ー３ー２．定数宣言とマウス構造体の宣言
• 　　７ー３ー３．ディスプレイ拡大率の計算
• 　７ー４．ユーザーフォーム
• 　　７ー４ー１．フォーム上レイアウト
• 　　７ー４ー２．フォームモジュール
• 　　　７ー４ー２ー１．モジュールレベル変数
• 　　　７ー４ー２ー２．フォーム初期設定
• 　　　７ー４ー２ー３．表示倍率取得・表示
• 　　　７ー４ー２ー４．測定値表示
• ８．まとめ
• アプリ実例・関連する項目
• サンプルファイル

Excelを扱う時には、Excelシート上の「ドキュメント座標」だけで無く、パソコンの画面上である「スクリーン座標」を意識しなければならない場合があります。また長さの単位にも「ポイント（以下ptと略す場合あり）」と「ピクセル（以下pxと略す場合あり）」の２つがあり、合計４種類の間を変換する時には、単位換算のみでは無く、Excelシートの「表示倍率」やパソコンの「ディスプレイ拡大率」が関わってきます。
更にExcelには「ウィンドウ枠の固定」や「画面分割」という機能もあるため、見た目の距離を変換するのが大変です。
今回は、これらの関係について整理していきます。

１．スクリーン座標とドキュメント座標の関係

まず「スクリーン座標（画面座標、ディスプレイ座標 とも呼ばれる）」は、文字通りパソコン画面上での座標です。その原点は、図０１の左側のようにスクリーンの「左上角」になります。
パソコンでExcelを開くと、このスクリーン上に「Excelが浮いている」ような状態で表示されます。この表示されたExcelのシート上が「ドキュメント座標」になり、その原点はシートの左上角（A1セルの左上）になります。

図０１別窓

Excelのシートである「ドキュメント座標」の上に存在するものは、Excelのセルやシートに貼り付けた図形などです。これらはExcelのシート以外の場所に動かすことはできません（図０１の右側）。一方ユーザーフォームやメッセージボックスはExcelシートから離れた場所にも動かすことが可能ですし、Excelの本体もスクリーン上のどこへでも移動可能です。

各座標上の位置は、原点からのX・Y方向の距離のセットで表します。図０２のように各座標とも「左右がX軸で、右方向がプラス」「上下がY軸で、下方向がプラス」です。Excelのオブジェクトの位置を表すには、X方向はLeftプロパティを、Y方向はTopプロパティが使われます。

図０２別窓

このスクリーン座標とドキュメント座標の違いは、位置の基準である「原点位置」が違うというより、図０１の右側で「図形はシートの外には出られず、ユーザーフォームは出られる」ことからも、住んでいる世界が異なると考えた方が分かり易いかもしれません。
例えとして、スクリーン座標を「海」に、ドキュメント座標をその海に浮かんでいる「大型船」に置き換えてみます。
船自体の位置は、緯度経度という絶対値である「海の基準」で、浮いている場所が特定できます。しかし船上に存在するもの、例えば船長室とか展望デッキの位置には、船内の地図や番地を使います。もし船が海の上を移動しても、船上での相対的な位置は変わらないからです。
と言って船長室の位置を海基準の緯度経度で表す必要がある場合は、直接GPS計で測る以外にも、「船の位置（海基準）＋船上での位置（船基準）」という計算で表すことも可能です。

この海（＝スクリーン座標）の中での「船（＝ドキュメント座標）の位置」は、図０３のように「PointsToScreenPixelsX（X方向）」、「PointsToScreenPixelsY（Y方向）」というメソッドで取得できます。このメソッドの引数には、ドキュメント座標上の位置を指定するのですが、図０３ではゼロを指定していますので「ドキュメント座標の原点」の位置が得られることになります。
ドキュメント座標の原点が取得できたら、後はExcelシート上での通常の位置を計算し、足し合わせれば「スクリーン座標から見た位置」が分かることになります。

図０３別窓

このWindowオブジェクトでの「異常値」ですが、他のサイトでも「変な値が出る」との報告があります。また見出しとして使っている幅や高さの「２倍だけズレている」との報告もあります。 図０４は３行×２列のウィンドウ枠固定をしたワークシートですが、これを使って私も試してみました。 図０４別窓 結論的には「ウィンドウ枠固定やウィンドウ分割を行っていると、WindowオブジェクトのPointsToScreenPixelsX /Yメソッドでは、正しい値が出ない」事が確認できたのですが、どういう計算をしているか考えてみました。 私の推定では、ActiveWindowを「Panes(1)では無く、Panes(ActiveWindow.Panes.Count)と勘違い」して、タイトル部の幅・高さ分を引算しているようです。しかも行番号・列番号の幅・高さまで誤って引いてしまっているようです。 列番号の高さは「ほぼセル１個分」なので、タイトル行が１行であれば「ほぼ２倍のズレ」という他サイトの報告も頷けます。 今までこのサイトでも「PointsToScreenPixelsX(0) /Y(0)」は何度も出てきますが、恥ずかしながら全てWindowオブジェクト（≒ Panes(1)を入れていない）で使ってきました。私自身ほとんどウィンドウ枠固定やウィンドウ分割を使わないもので、エラーに気が付きませんでした。申し訳ありません。

２．ポイントとピクセルの関係

ポイントとピクセルの関係は、一般的には以下の式が使われます。
７２ポイント＝９６ピクセル

「ピクセル → ポイント」換算時は、ピクセル値に「 72/96 (＝0.75) 」を掛ける　 「ポイント → ピクセル」換算時は、ポイント値を「 72/96 (＝0.75) 」で割る

この関係は、以下の関係から導かれます。
　１ポイント＝１／７２インチ
　１ピクセル＝１／９６インチ

まずポイントは、元々は「印刷の世界の単位」で、文字の大きさを表します。コンピュータで文字サイズを扱う時も、それを踏襲し「７２ポイント＝１インチ」と言う基準にしています。

次にピクセルとは「ディスプレイのドット」で、１インチ当たりのドット数を「DPI（Dot per Inch）」として表します。上の式は「１インチ当り 96ドット」という事を示していることになります。
この値を私のノートPCの画面寸法と解像度から検証したのが図０５です。なんと「約148dpi」となります。

図０５別窓

実は、DPIのインチは実際の長さでは無く「論理インチ」で、「96ドットを論理インチ」とするという意味になります。
この背景には、世の中の様々なサイズ・性能のディスプレイに対応させることと併せて、手元の本（ポイント単位）よりもディスプレイが遠くにあるため、ポイントよりも1/3だけサイズを大きく（72→96）したという理由もあるようです。

では、実際のディスプレイで考えてみます。ディスプレイは「ドット」がたくさん並んで構成されています。そのドットは物理的なものなので、大きくしたり小さくしたりは出来ません。
上記の「96ドット＝1論理インチ」を表現してみると、図０６のようになります。96ドットで１論理インチであり、また文字の大きさは「72ポイントで１インチ」なので、「７２ポイント＝９６ドット（ピクセル）」となります。

図０６別窓

なお図０３では「スクリーン座標＝単位ピクセル、ドキュメント座標＝単位ポイント」のような書き方をしていますが、あまり正確な説明ではありません。例えばスクリーン座標で動くユーザーフォームの位置（Left、Topプロパティ）の単位はポイントです。他にも例外があるかは分かりませんが、単位は良く調べてから使用した方が良いと思います。

３．ディスプレイ拡大率

上記「１ピクセル＝１／９６論理インチ」と決まったのは1990年代でした。その後2000年代になり技術が進んで、ドットの大きさを小さくした「高解像度ディスプレイ」が出てきました。すると、ドットの密度は高くなるので画質は綺麗になりますが、逆に「文字が小さすぎて読みにくい」というデメリットも出てきます。
その解決策として「１論理インチ当たりのドット数を上げる」という機能が出てきました。これが「ディスプレイ拡大率」です。

ディスプレイ拡大率は、設定から「システム」→「ディスプレイ」→「拡大縮小とレイアウト」内の、「拡大／縮小」で設定します（図０７）。Windowsのバージョンにより表現は色々ですが、「拡大」「縮小」の言葉が入っているはずです。

図０７別窓

変更できるディスプレイ拡大率の範囲はディスプレイの解像度によって異なりますが、図０７（私のノートPC）では「100%・125%・150%」の３種類から選択できます。
また、同じ画面で「ディスプレイ解像度」も変更可能ですが、これは複数のドットを連動させ疑似的な大きなドットを作る事で、画像を粗くして画面を拡大するものです。通常は一番上の「推奨（＝物理的なドットを全て有効に使う）」を選択した方が良いと思います。

上記で説明してきた「１ピクセル＝１／９６論理インチ」という関係は、実は「ディスプレイ拡大率＝100%」の時だけで、それ以外の時には図０８のように異なるピクセル値となります。

ﾃﾞｨｽﾌﾟﾚｲ拡大率	100%	125%	150%	175%	200%	225%	250%
ﾋﾟｸｾﾙ/論理ｲﾝﾁ	96	120	144	168	192	216	240

図０８別窓

例えばディスプレイ拡大率「100%」と「150%」を、図０９のように画面を拡大して比較してみます。

図０９別窓

図０９の左側は、今まで説明してきた「１ピクセル＝１／９６論理インチ」です。逆に言えば 96ピクセル／論理インチで、且つ その大きさが72ポイントになります。
その同じディスプレイで、ディスプレイ拡大率を150%（図０９の右側）にすると、144ピクセル分が１論理インチとなりますので、自動的に文字サイズも大きく（図０９の右側は、左側の1.5倍）なる事になります。

ディスプレイ拡大率を取得するには、Win32 APIの「GetDeviceCaps関数」を使います。GetDeviceCaps関数は「デバイス（ここではディスプレイ）情報」を取得する関数で、２つの引数を指定します。
　GetDeviceCaps(デバイスコンテキストのハンドル, 項目を示す値)
項目は図１０のように複数あり、ディスプレイの様々な値を得ることが可能です。

図１０の右列には、私のノートPCでの「ディスプレイ拡大率100%」の時の値と「150%」の値を並べていますが、値が異なるのは「88（LOGPIXELSX）」と「90（LOGPIXELSY）」のみです。X方向とY方向の拡大率は同じですので、今回は「88 又は 90」を使って「論理インチ当りのピクセル数」を取得しています。 取得するコードについては、図４０を参照下さい。

定数	値	項目	例(私のﾉｰﾄPC)
			100%	150%
DRIVERVERSION	0	デバイスドライバのバージョン	16384	←
TECHNOLOGY	2	デバイステクノロジー*	1	←
HORZSIZE	4	物理画面の幅（単位mm）	263	←
VERTSIZE	6	物理画面の高さ（単位mm）	175	←
HORZRES	8	画面の幅（単位ピクセル）	1536	←
VERTRES	10	画面の高さ（単位ピクセル）	1024	←
BITSPIXEL	12	ピクセルあたりのカラービット数	32	←
PLANES	14	カラープレーンの数	1	←
NUMBRUSHES	16	デバイス固有のブラシの数	-1	←
NUMPENS	18	デバイス固有のペンの数	-1	←
NUMMARKERS	20	デバイス固有のマーカーの数	0	←
NUMFONTS	22	デバイス固有のフォントの数	0	←
NUMCOLORS	24	デバイスのカラーテーブルのエントリ数	-1	←
PDEVICESIZE	26	（予約値）	0	←
CURVECAPS	28	デバイスの曲線描画能力*	511	←
LINECAPS	30	デバイスの直線描画能力*	254	←
POLYGONALCAPS	32	デバイスの多角形描画能力*	255	←
TEXTCAPS	34	デバイスのテキスト表示能力*	30727	←
CLIPCAPS	36	デバイスのクリッピング能力	1	←
RASTERCAPS	38	デバイスのラスタ能力*	32409	←
ASPECTX	40	線の描画に使うデバイスピクセルの相対幅	36	←
ASPECTY	42	線の描画に使うデバイスピクセルの相対高さ	36	←
ASPECTXY	44	線の描画に使うデバイスピクセルの対角線の長さ	51	←
SHADEBLENDCAPS	45	デバイスのシェードとブレンドの能力を示す値**	0	←
LOGPIXELSX	88	論理インチ当たりの画面の水平方向のピクセル数	96	144
LOGPIXELSY	90	論理インチ当たりの画面の垂直方向のピクセル数	96	144
SIZEPALETTE	104	システムパレット内のエントリ数	0	←
NUMRESERVED	106	システムパレット内の予約エントリ数	20	←
COLORRES	108	デバイスの実際のカラー解像度を表す、ピクセル当たりのビット数	24	←
PHYSICALWIDTH	110	物理的なページ全体の幅（デバイス単位）	0	←
PHYSICALHEIGHT	111	物理的なページ全体の高さ（デバイス単位）	0	←
PHYSICALOFFSETX	112	物理的なページの左辺から印刷可能領域の左辺までの距離（デバイス単位）	0	←
PHYSICALOFFSETY	113	物理的なページの上辺から印刷可能領域の上辺までの距離（デバイス単位）	0	←
SCALINGFACTORX	114	X軸のスケーリングファクター	0	←
SCALINGFACTORY	115	Y軸のスケーリングファクター	0	←
VREFRESH	116	現在のディスプレイ出力の垂直周波数 (Hz)	60	←
DESKTOPVERTRES	117	仮想デスクトップの高さ（ピクセル単位）***	1024	←
DESKTOPHORZRES	118	仮想デスクトップの幅（ピクセル単位）***	1536	←
BLTALIGNMENT	119	デバイスに適した水平方向のアラインメント***	1	←

*＝対照表が存在　　**＝Windows 98/2000以降　　***＝Windows NT/2000/XPのみ
図１０別窓


図１１別窓

また図１１では、Excel本体の左上角の位置はほとんど移動していない事が分かります。ディスプレイ拡大率を大きくした際に、Excel本体の右側や下側がWindows画面の右端や下端にぶつかってしまうと、押し出されて画面の左上角の方向に移動してしまう様ですが、ぶつからない限りは「左上角位置を保つ」様です。

つまりスクリーン座標上のピクセル値が変わらないだけで、ディスプレイ拡大率が変更された事で「ポイント値／ピクセル値」は変わる為、Excel本体の位置を表すLeft値・Top値（ポイント単位）は「ディスプレイ拡大率の分だけ変わる」ことになります。

４．Excelの表示倍率

Excelにはシートを拡大／縮小する機能（表示倍率）があります。シート上の内容を同じ状態にしたまま、表示倍率を変更したのが図１２です。

図１２別窓

７．ツールの紹介

今回紹介するツール（「サンプルファイル」）は、上で説明した変換式が正しいか否かの確認をしたものです。実務で役に立つかどうかは分かりませんので御了承下さい。

７ー１．概要

ツールのワークシート（Sheet1）上には、図２７のように複数のボタンと図形を１つ並べてあります。

図２７別窓

「UF」と書かれたボタン①（一番左上）をクリックすると、ユーザーフォーム②がモードレスで起動します。起動したユーザーフォームは、図２８のように左上角で位置を測定するものです。
ユーザーフォーム上には「スクリーン座標」及び「ドキュメント座標」でのX方向Y方向の位置が「ポイント単位」「ピクセル単位」で表示され、その下に「セルのアドレス」または「図形やコントロールの名前」が表示されます。
一番下には「PCのディスプレイ拡大率」と「Excelのシートの表示倍率」を表示しています。

図２８別窓

シート上の表枠内の全６個のボタン（図２７の③）は、図２９のように丸数字の部分を選択実行するようにしています。

					測定側
					ｽｸﾘｰﾝ座標		ﾄﾞｷｭﾒﾝﾄ座標
					ピクセル	ポイント	ポイント
					マウス	UserForm	ｾﾙ､図形
求める量	ｽｸﾘｰﾝ座標	ピクセル	マウス			⑤	⑥
		ポイント	UserForm		⑦		⑧
	ﾄﾞｷｭﾒﾝﾄ座標	ポイント	ｾﾙ､図形		⑨	⑩

図２９別窓

図２９の横軸が測定側で、縦軸が求める量側としています。例えば図２９の⑥のボタンをクリックすると、シート上の「セル・図形（今回プログラムでは"図形01"の四角図形④）」の位置を調べ、内部で換算をした後「マウス」の位置を図形のところに移動するようにしています。
逆に⑨のボタンの場合は、「マウス」がある位置にシート上の図形を移動してきます。他のボタンも同様の動きをします。

但しユーザーフォームが対象となっているボタン（⑤⑦⑧⑩）の場合は、上記「UFボタン①」でUserForm1を事前起動しておかないと、「スクリーン座標原点にUserFormがある」事として動作するか、若しくは無視される事になりますので御注意下さい。

なお、図４７で説明する「フォーム左上角をピッタリ合わせる」処理は、③の６個のボタンには対応させていないので、移動後でもちょっとだけズレがありますが御了承下さい。

７ー２．ワークシート

７ー２ー１．シート上のレイアウト

ワークシート（Sheet1）上には、図２９の表を作り、そこに６つのボタン（フォームコントロール）を配置します。シート左上側にもボタン（「UF」とのCaptionを設定）を１つ配置しています。

図３０別窓

全７個のボタンには、図３０のようにマクロを登録します。またシートの適当な場所に図形を貼り付け、その図形の名前を「"図形01"」としておきます。この名前は、図３３等のプロシージャ内で変数設定値となります。

７ー２ー２．シートモジュール

シート上の７個のボタンから実行されるプロシージャは、全てシートモジュールに置きました。

７ー２ー２ー１．①測定用ユーザーフォームの起動

図３０のボタン①をクリックした時に実行されるのが図３１です。
０２行目「UserForm1.Show 0」で、UserForm1をモードレス（フォーム起動中もシート操作可）で起動します。

0. '==========　⇩(1)　ユーザーフォームの起動 ============
1. Sub UFstart()
2. 　UserForm1.Show 0
3. End Sub

図３１別窓

７ー２ー２ー２．⑤ユーザーフォームの位置にマウスを移動

図３０の⑤ボタン（スクリーン座標のポイント単位 → スクリーン座標のピクセル単位）をクリック時に実行されるのが図３２です。配置したユーザーフォームの位置にマウスを移動させます。

10. '==========　⇩(2)　ユーザーフォームの位置にマウスを移動 ============
11. Sub Disp_pt2Disp_px()
12. 　Dim X As Single 　 '←X方向のポイント・ピクセル
13. 　Dim Y As Single 　 '←Y方向のポイント・ピクセル
15. 　X = UserForm1.Left
16. 　Y = UserForm1.Top
18. 　X = X * (96 / 72) * (LogicalPixcel / 96)
19. 　Y = Y * (96 / 72) * (LogicalPixcel / 96)
21. 　Call SetCursorPos(CLng(x), CLng(y))
22. End Sub

図３２別窓

１５行目「X = UserForm1.Left」、１６行目「Y = UserForm1.Top」で、現在のユーザーフォームの位置を取得し、変数X、Yに代入します。この段階ではポイント単位です。

１８行目「X = X * (96 / 72) * (LogicalPixcel / 96)」で、ポイント単位をピクセル単位に変換し、且つディスプレイ拡大率を乗算します。これは図２６で言う「スクリーン座標のポイント単位」から「スクリーン座標のピクセル単位」にエリアが移る際、「ディスプレイ拡大率 × (96/72)」を掛けている（矢印の方向が「×（乗算）」印）ことを表しています。
なお、別な表し方として「X = X / 0.75 * (LogicalPixcel / 96)」でもOKです。
１９行目「Y = Y * (96 / 72) * (LogicalPixcel / 96)」ではY方向を変換しています。

２１行目「Call SetCursorPos(CLng(x), CLng(y))」では、１８～１９行目で変換した値を引数にして、マウス位置を変更しています。その際、SetCursorPosへの引数はLong型にする必要があるので「CLng関数」で型変換をしています。
なお、SetCursorPosは「Win32 API関数」ですので、標準モジュールの先頭部分（図３８の２４７行目、２５５行目）で宣言をしています。

７ー２ー２ー３．⑥シート上の図形の位置にマウスを移動

図３０の⑥ボタン（ドキュメント座標のポイント単位 → スクリーン座標のピクセル単位）をクリック時に実行されるのが図３３です。シート上に配置した図形の位置にマウスを移動させます。

30. '==========　⇩(3)　シート上の図形の位置にマウスを移動 ============
31. Sub Doc2Disp_px()
32. 　Dim X As Single 　　　 '←X方向のポイント・ピクセル
33. 　Dim Y As Single 　　　 '←Y方向のポイント・ピクセル
34. 　Dim Pane2 As Range 　 '←左上領域の１番目のセル
35. 　Dim Pane3 As Range 　 '←非可視領域の１番目のセル
36. 　Dim T As Object 　　　 '←移動先目標とするオブジェクト（今回は図形）
38. 　Set T = Sheet1.Shapes("図形01")
40. 　X = T.Left
41. 　Y = T.Top
43. 　With ActiveWindow
44. 　　Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)
45. 　　Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)
47. 　　If X > Pane3.Left Then
48. 　　　X = X - (Pane2.Left - .Pane3.Left)
49. 　　End If
51. 　　If Y > Pane3.Top Then
52. 　　　Y = Y - (Pane2.Top - Pane3.Top)
53. 　　End If
55. 　　X = X * .Zoom / 100
56. 　　Y = Y * .Zoom / 100
58. 　　X = .Panes(1).PointsToScreenPixelsX(0) + X * (96 / 72) * (LogicalPixcel / 96)
59. 　　Y = .Panes(1).PointsToScreenPixelsY(0) + Y * (96 / 72) * (LogicalPixcel / 96)
60. 　End With
62. 　Call SetCursorPos(CLng(x), CLng(y))
64. 　Set Pane2 = Nothing
65. 　Set Pane3 = Nothing
66. 　Set T = Nothing
67. End Sub

図３３別窓

３８行目「Set T = Sheet1.Shapes("図形01")」では、図形オブジェクトを変数Tに設定します。
４０行目「X = T.Left」、４１行目「Y = T.Top」では、移動先目標である図形の位置を、まずドキュメント座標上のポイント単位で変数X、Yに代入します。

４３行目「With ActiveWindow」は、４４～５９行目を「ActiveWindow（現在表示しているシート）」基準とします。
このプロシージャでは、図２６の右下エリアから左上エリアへの移動ですので、まず非可視領域の距離補正をし、次に表示倍率、その次にディスプレイ拡大率と単位変換をします。

まず、図２０の②相当のセルを取得するため、４４行目「Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)」で、右下エリアの先頭セルをPane2に設定します。
続けて、図２０の③相当のセルを取得するため、４５行目「Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)」で、非可視領域の先頭セルをPane3に設定します。

非可視領域の補正が完了したら、次はドキュメント座標からスクリーン座標への「表示倍率」の変換です。
５５行目「X = X * .Zoom / 100」では、４８行目で補正した変数Xに対して、Excel表示倍率を補正しています。図２６で矢印の方向が「×（乗算）」となっていますので、表示倍率（.Zoom / 100）を掛けています。
５６行目「Y = Y * .Zoom / 100」もY方向に対して表示倍率を掛けています。

スクリーン座標への変換が完了したら、ポイント単位→ピクセル単位への変換と併せて、ドキュメント座標原点の補正が必要です。
５８行目「X = .Panes(1).PointsToScreenPixelsX(0) + X * (96 / 72) * (LogicalPixcel / 96)」の右辺の後半「X * (96 / 72) * (LogicalPixcel / 96)」では、ポイント単位からピクセル単位への変換を行っています。
そしてディスプレイ座標原点の補正については、終点がExcel原点と同じ左上エリアであることから「ActiveWindow.Panes(1).PointsToScreenPixelsX(0)」をそのまま足し合わせます。
５９行目「Y = .Panes(1).PointsToScreenPixelsY(0) + Y * (96 / 72) * (LogicalPixcel / 96)」も同様にY方向の補正をしています。

補正が完了したら、６２行目「Call SetCursorPos(CLng(x), CLng(y))」で、API関数SetCursorPosの引数に設定し、マウスの位置を図形の位置に移動させます。

最後に、６４行目「Set Pane2 = Nothing」、６５行目「Set Pane3 = Nothing」で、４４～４５行目で設定したRangeオブジェクトをクリアし、６６行目「Set T = Nothing」で目標図形オブジェクトをクリアしています。

７ー２ー２ー４．⑦マウスの位置にユーザーフォームを移動

図３０の⑦ボタン（スクリーン座標のピクセル単位 → スクリーン座標のポイント単位）をクリック時に実行されるのが図３４です。マウスの位置にユーザーフォームを移動させます。

70. '==========　⇩(4)　マウスの位置にユーザーフォームを移動 ============
71. Sub Disp_px2Disp_pt()
72. 　Dim c As cPoint 　 '←マウス位置の構造体
73. 　Dim X As Single 　 '←X方向のピクセル
74. 　Dim Y As Single 　 '←Y方向のピクセル
76. 　Call GetCursorPos(c)
78. 　X = c.X / (96 / 72) / (LogicalPixcel / 96)
79. 　Y = c.Y / (96 / 72) / (LogicalPixcel / 96)
81. 　UserForm1.Left = X
82. 　UserForm1.Top = Y
83. End Sub

図３４別窓

７６行目「Call GetCursorPos(c)」では、Win32APIのGetCursorPos関数を呼び出し、現在のマウス位置を取得します。このAPI関数は、標準モジュールの先頭部分（図３８の２４８行目・２５６行目）で、また構造体cPointも図３９の２６５～２６８行目で宣言しています。

取得したマウス位置は、X方向は「c.x（ピクセル単位）」Y方向は「c.y（ピクセル単位）」で取り出せます。
７８行目「X = c.X / (96 / 72) / (LogicalPixcel / 96)」では、ユーザーフォームの位置（スクリーン座標のポイント単位）に換算しています。図２６で言えば同じスクリーン座標上で「ピクセル単位→ポイント単位」ですので矢印の向きは「÷（除算）」です。そのため「c.X / (ディスプレイ拡大率 × (96/72) )」となります。
７９行目「Y = c.Y / (96 / 72) / (LogicalPixcel / 96)」はY方向ですが、同じ内容です。

その値を使って、８１行目「UserForm1.Left = X」、８２行目「UserForm1.Top = Y」で、ユーザーフォームの位置を移動させます。

７ー２ー２ー５．⑧図形の位置にユーザーフォームを移動

図３０の⑧ボタン（ドキュメント座標のポイント単位 → スクリーン座標のポイント単位）をクリック時に実行されるのが図３５です。図形の位置にユーザーフォームを移動させます。

90. '==========　⇩(5)　図形の位置にユーザーフォームを移動 ============
91. Sub Doc2Disp_pt()
92. 　Dim X As Single 　　　 '←X方向のポイント
93. 　Dim Y As Single 　　　 '←Y方向のポイント
94. 　Dim Pane2 As Range 　 '←左上領域の１番目セル
95. 　Dim Pane3 As Range 　 '←非可視領域の１番目セル
96. 　Dim T As Object 　　　 '←移動目標とするオブジェクト（今回は図形）
98. 　Set T = Sheet1.Shapes("図形01")
100. 　X = T.Left
101. 　Y = T.Top
103. 　With ActiveWindow
104. 　　Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)
105. 　　Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)
107. 　　If X > Pane3.Left Then
108. 　　　X = X - (Pane2.Left - Pane3.Left)
109. 　　End If
111. 　　If Y > Pane3.Top Then
112. 　　　Y = Y - (Pane2.Top - Pane3.Top)
113. 　　End If
115. 　　X = X * .Zoom / 100
116. 　　Y = Y * .Zoom / 100
118. 　　X = .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / (LogicalPixcel / 96) + X
119. 　　Y = .Panes(1).PointsToScreenPixelsY(0) / (96 / 72) / (LogicalPixcel / 96) + Y
120. 　End With
122. 　UserForm1.Left = X
123. 　UserForm1.Top = Y
125. 　Set Pane1 = Nothing
126. 　Set Pane2 = Nothing
127. 　Set T = Nothing
128. End Sub

図３５別窓

９８行目「Set T = Sheet1.Shapes("図形01")」では、図形を変数Tに設定します。
１００行目「X = T.Left」、１０１行目「Y = T.Top」では、移動先目標である図形の位置を変数X、Yに代入します。

１０３行目「With ActiveWindow」は、１０４～１１９行目を「ActiveWindow（現在表示しているシート）」基準とします。
このプロシージャでは、図２６の右下エリアから左下エリアへの移動ですので、まず非可視領域の距離補正をし、次に表示倍率の換算をします。

まず、図２０の②相当のセルを取得するため、１０４行目「Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)」で、右下エリアの先頭セルをPane2に設定します。
続けて、図２０の③相当のセルを取得するため、１０５行目「Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)」で、非可視領域の先頭セルをPane3に設定します。

次に非可視領域の距離の補正です。
１０７行目「If X > Pane3.Left Then」では、図形の位置が分割線を左右方向に越えているか否かを調べています。
越えている（図形が分割線よりも右にある）場合は、１０８行目「X = X - (Pane2.Left - .Pane3.Left)」で、非可視領域の幅を元の図形の位置から引いています。これは、図２６で矢印の方向が「－（減算）」となっているためです。

１１１行目「If Y > Pane3.Top Then」では、図形の位置が分割線を上下方向に越えているか否かを調べ、越えている（図形が分割線よりも下にある）場合は、１１２行目「Y = Y - (Pane2.Top - Pane3.Top)」で非可視領域の高さを元の図形の位置から引いています。

非可視領域の補正が完了したら、次はドキュメント座標からスクリーン座標への「表示倍率」の変換です。
１１５行目「X = X * .Zoom / 100」では、１０８行目で補正した変数Xに対して、Excel表示倍率を補正しています。図２６で矢印の方向が「×（乗算）」となっていますので、表示倍率（.Zoom / 100）を掛けています。
１１６行目「Y = Y * .Zoom / 100」もY方向に対して表示倍率を掛けています。

１１８行目「X = .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / (LogicalPixcel / 96) + X」ではドキュメント座標原点の補正をします。今回の終点は「スクリーン座標 × ポイント」エリアですので、図２６で「Excel原点位置」をポイント単位のエリアに移す必要があります。矢印の向きは「÷（除算）」になっていますので、「ディスプレイ拡大率 × (96/72)」を割り算することが分かります。その割り算の結果を１１５行目で得たX値に足します。

補正が完了したら、１２２行目「UserForm1.Left = X 」、１２３行目「UserForm1.Top = Y 」で、ユーザーフォームの位置を図形の位置に移動させます。

７ー２ー２ー６．⑨マウスの位置に図形を移動

図３０の⑨ボタン（スクリーン座標のピクセル単位 → ドキュメント座標のポイント単位）をクリック時に実行されるのが図３６です。マウスの位置に図形を移動させます。

140. '==========　⇩(6)　マウスの位置に図形を移動 ============
141. Sub Disp_px2Doc()
142. 　Dim X As Single 　　　 '←X方向のポイント
143. 　Dim Y As Single 　　　 '←Y方向のポイント
144. 　Dim Pane2 As Range 　 '←左上領域の１番目セル
145. 　Dim Pane3 As Range 　 '←非可視領域の１番目セル
146. 　Dim T As Object 　　　 '←移動対象のオブジェクト（今回は図形）
147. 　Dim c As cPoint 　　　 '←マウス位置の構造体
149. 　Set T = Sheet1.Shapes("図形01")
151. 　Call GetCursorPos(c)
153. 　With ActiveWindow
154. 　　X = c.X - .Panes(1).PointsToScreenPixelsX(0)
155. 　　Y = c.Y - .Panes(1).PointsToScreenPixelsY(0)
157. 　　X = X / (96 / 72) / (LogicalPixcel / 96)
158. 　　Y = Y / (96 / 72) / (LogicalPixcel / 96)
160. 　　X = X / (.Zoom / 100)
161. 　　Y = Y / (.Zoom / 100)
163. 　　Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)
164. 　　Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)
166. 　　If X > Pane3.Left Then
167. 　　　X = X + (Pane2.Left - Pane3.Left)
168. 　　End If
170. 　　If Y > Pane3.Top Then
171. 　　　Y = Y + (Pane2.Top - Pane3.Top)
172. 　　End If
174. 　End With
176. 　T.Left = X
177. 　T.Top = Y
179. 　Set Pane2 = Nothing
180. 　Set Pane3 = Nothing
181. 　Set T = Nothing
182. End Sub

図３６別窓

１４９行目「Set T = Sheet1.Shapes("図形01")」では、図形を変数Tに設定します。
１５１行目「Call GetCursorPos(c)」では、Win32APIのGetCursorPos関数を呼び出し、現在のマウス位置を取得します。このAPI関数宣言は、標準モジュールの先頭部分（図３８の２４８行目・２５６行目）で、また構造体cPointも図３９の２６５～２６８行目で宣言しています。

１５３行目「With ActiveWindow」は、１５４～１７２行目を「ActiveWindow（現在表示しているシート）」基準とします。
このプロシージャでは、図２６の左上エリアから右上エリアへの移動ですので、まずディスプレイ拡大率補正＋単位換算をし、次に表示倍率、その次に非可視領域範囲の補正をします。

１５１行目で取得したマウス位置に対し、まず１５４行目「X = c.X - .Panes(1).PointsToScreenPixelsX(0)」でドキュメント座標原点を減算することで、ドキュメント座標相当のピクセル値に変換をします。マウスとExcel原点は、図２６では同じ左上エリアなので、PointsToScreenPixelsXはそのままです。
１５５行目「Y = c.Y - .Panes(1).PointsToScreenPixelsY(0)」は、Y方向の計算です。

次に、図２６の左上から左下エリアに移動しますので、「ディスプレイ拡大率 × (96/72)」を割り算します。これが１５７行目「X = X / (96 / 72) / (LogicalPixcel / 96)」、１５８行目「Y = Y / (96 / 72) / (LogicalPixcel / 96)」に相当します。
その次に、図２６の左下から右下エリアに移動しますので、「表示倍率」を割り算します。これが１６０行目「X = X / (.Zoom / 100)」、１６１行目「Y = Y / (.Zoom / 100)」に相当します。
最後に非可視領域の補正をします。まず図２０の②、③相当のセル位置を取得します。
１６３行目「Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)」で、図２０の右下エリアの先頭セル②を取得します。
１６４行目「Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)」で、非可視領域の先頭セル③を取得します。

１６６行目「If X > Pane3.Left Then」では、マウスの位置が分割線よりも右側にあるか否かを調べ、右側にある時は１６７行目「X = X + (Pane2.Left - Pane3.Left)」で、非可視領域の距離だけ足します。これは図２６の「図形位置に向かう側の矢印が＋（加算）」になっているためです。
同様に１７０行目「If Y > Pane3.Top Then」で、マウスが分割線より下にあるか否かを調べ、下にある場合は１７１行目「Y = Y + (Pane2.Top - Pane3.Top)」で補正をします。

補正が完了したら、１７６行目「T.Left = X」１７７行目「T.Top = Y」で図形の位置を移動させます。

７ー２ー２ー７．⑩ユーザーフォームの位置に図形を移動

図３０の⑩ボタン（スクリーン座標のポイント単位 → ドキュメント座標のポイント単位）をクリック時に実行されるのが図３７です。ユーザーフォームの位置に図形を移動させます。

190. '==========　⇩(7)　ユーザーフォームの位置に図形を移動 ============
191. Sub Disp_pt2Doc()
192. 　Dim X As Single 　　　 '←X方向のポイント
193. 　Dim Y As Single 　　　 '←Y方向のポイント
194. 　Dim Pane2 As Range 　 '←左上領域の１番目セル
195. 　Dim Pane3 As Range 　 '←非可視領域の１番目セル
196. 　Dim T As Object 　　　 '←移動対象のオブジェクト（今回は図形）
198. 　Set T = Sheet1.Shapes("図形01")
200. 　X = UserForm1.Left
201. 　Y = UserForm1.Top
203. 　With ActiveWindow
204. 　　X = X - .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / (LogicalPixcel / 96)
205. 　　Y = Y - .Panes(1).PointsToScreenPixelsY(0) / (96 / 72) / (LogicalPixcel / 96)
207. 　　X = X / (.Zoom / 100)
208. 　　Y = Y / (.Zoom / 100)
210. 　　Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)
211. 　　Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)
213. 　　If X > Pane3.Left Then
214. 　　　X = X + (Pane2.Left - Pane3.Left)
215. 　　End If
217. 　　If Y > Pane3.Top Then
218. 　　　Y = Y + (Pane2.Top - Pane3.Top)
219. 　　End If
221. 　End With
223. 　T.Left = X
224. 　T.Top = Y
226. 　Set Pane2 = Nothing
227. 　Set Pane3 = Nothing
228. 　Set T = Nothing
229. End Sub

図３７別窓

１９８行目「Set T = Sheet1.Shapes("図形01")」では、図形を変数Tに設定します。
２００行目「X = UserForm1.Left」、２０１行目「Y = UserForm1.Top」では、現在のユーザーフォームの位置を取得します。

２０３行目「With ActiveWindow」は、２０４～２１９行目を「ActiveWindow（現在表示しているシート）」基準とします。
このプロシージャでは、図２６の左下エリアから右下エリアへの移動ですので、まず表示倍率の換算をし、次に非可視領域の距離補正をします。

表示倍率換算の前に、Excel原点の処理を２０４行目「X = X - .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / (LogicalPixcel / 96)」で行います。計測するエリアが左下ですので「Excel原点に対して「ディスプレイ拡大率 × (96/72)」を割り算した値を引算しています。
２０５行目「Y = Y - .Panes(1).PointsToScreenPixelsY(0) / (96 / 72) / (LogicalPixcel / 96)」はY方向です。

Excel原点の処理が完了したら、２０７行目「X = X / (.Zoom / 100)」、２０８行目「Y = Y / (.Zoom / 100)」で表示倍率の換算をします。図２６でも矢印の方向が「÷（除算）」になっていますので除算をします。

最後に非可視領域の距離を足していきます。
２１３行目「If X > Pane3.Left Then」では、ユーザーフォームの位置が分割線を左右方向に越えているか否かを調べています。越えている（ユーザーフォームが分割線よりも右にある）場合は、２１４行目「X = X + (Pane2.Left - Pane3.Left)」で、非可視領域の幅を足しています。
Y方向は２１７行目「If Y > Pane3.Top Then」でユーザーフォームの位置が分割線を上下方向に越えているか否かを調べ、越えていれば２１８行目「Y = Y + (Pane2.Top - Pane3.Top)」で非可視領域の高さを足しています。

計算結果を使い、２２３行目「T.Left = X」、２２４行目「T.Top = Y」で図形位置を変更しています。

７ー３．標準モジュール（Module1）

７ー３ー１．Win32 API関数の宣言

先頭部（宣言部）では、ディスプレイ拡大率を取得するための関数４種、およびマウスの位置取得と設定の関数各１種を宣言しています。尚、Excelが64ビットの時と32ビットの時で宣言の書式が異なりますので、#If～#Else～#End Ifで分岐させています。

240. '==========　⇩(8)　Win32 API関数の宣言 ============
241. #If Win64 Then
242. 　Private Declare PtrSafe Function GetDesktopWindow Lib "User32" () As Long
243. 　Private Declare PtrSafe Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
244. 　Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
245. 　Private Declare PtrSafe Function ReleaseDC Lib "User32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
247. 　Public Declare PtrSafe Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long
248. 　Public Declare PtrSafe Function GetCursorPos Lib "User32" (lpPoint As cPoint) As Long
249. #Else
250. 　Private Declare Function GetDesktopWindow Lib "user32" () As Long
251. 　Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
252. 　Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
253. 　Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
255. 　Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
256. 　Public Declare Function GetCursorPos Lib "User32" (lpPoint As cPoint) As Long
257. #End If

図３８別窓

ディスプレイ拡大率を取得するには「GetDesktopWindow」「GetDC」「GetDeviceCaps」「ReleaseDC」の４種の関数が必要ですので、２４２～２４５行目で宣言しています。32ビットの場合は２５０～２５３行目になります。

マウス位置の取得・設定を行うのが２４７～２４８行目の「SetCursorPos」「GetCursorPos」関数です。32ビットでは２５５～２５６行目で宣言しています。

なおディスプレイ拡大率関係の宣言はPrivateとしていますが、これは処理を行うプロシージャが同じ標準モジュール内（図４０）にあるためです（シートモジュールやフォームモジュールから、標準モジュール上の図４０を呼び出す形にしています）。
一方マウスの位置の宣言はPublicで行っています。これは使用するプロシージャがシートモジュールやフォームモジュールにあるためです。

64ビットと32ビットとの宣言の違いは、Functionの前にPtrSafeを付けるか付けないかと併せて、32ビットではLong型のものを64ビットではLongPtr型にする必要がありますが、Long型のままでもOKの様です。もし分けて宣言する場合は、API関数を使用する各プロシージャの中でも#If～#Else～#End Ifで変数のデータ型を分けて宣言しないと、データ型異常のエラーが出ますので注意が必要です。

７ー３ー２．定数宣言とマウス構造体の宣言

ディスプレイ拡大率の取得に必要な値を宣言部で定数宣言しておきます。また、マウスの位置取得に必要な構造体cPointについても宣言します。

260. '==========　⇩(9)　GetDeviceCaps関数の定数値 ============
261. Private Const LOGPIXELSX As Long = 88 　 '←GetDeviceCaps関数の定数値（水平方向）
262. Private Const LOGPIXELSY As Long = 90 　 '←GetDeviceCaps関数の定数値（垂直方向）
264. '==========　⇩(10)　マウス位置の構造体宣言 ============
265. Type cPoint
266. 　X As Long
267. 　Y As Long
268. End Type

図３９別窓

２６１行目「Private Const LOGPIXELSX As Long = 88」、２６２行目「Private Const LOGPIXELSY As Long = 90」は、図３８の２４４行目・２５２行目でAPI関数宣言をしているGetDeviceCapsの第二引数に指定する定数です。この第二引数には図１０で示した多くの定数を指定でき、様々なディスプレイ情報を得ることができますが、今回はその内の「論理インチ当りの画面のピクセル数」を取得します。
スクリーンの密度はX方向・Y方向で実際には同じですので、「LOGPIXELSX（88）」または「LOGPIXELSY（90）」のどちらでも同じ結果が得られるので、一方のみの定数設定でも問題ないのですが、とりあえず両方向の定数を宣言しています。

２６５～２６８行目で構造体宣言をしているcPointは、図３８の２４８行目・２５６行目でAPI関数宣言をしているGetCursorPosの引数となります。マウス位置設定側の関数（SetCursorPos）は、引数としてX・Y値を渡せるのですが、取得側であるGetCursorPosは構造体に位置が入った形でデータを受け取ることになります。

７ー３ー３．ディスプレイ拡大率の計算

ディスプレイ拡大率は、様々なプロシージャから呼び出して使用するため、図４０のようなユーザー定義関数方式としました。

280. '==========　⇩(11)　ディスプレイ拡大率の計算 ============
281. Public Function LogicalPixcel() As Long
282. 　Dim hWndDesk As Long 　 '←デスクトップのウィンドウハンドル
283. 　Dim hDCDesk As Long 　 '←デバイスコンテキスト
285. 　hWndDesk = GetDesktopWindow()
286. 　hDCDesk = GetDC(hWndDesk)
287. 　LogicalPixcel = GetDeviceCaps(hDCDesk, LOGPIXELSX)
289. 　Call ReleaseDC(hWndDesk, hDCDesk)
290. End Function

図４０別窓

２８５行目「hWndDesk = GetDesktopWindow()」では、デスクトップのウィンドウハンドルを取得します。
２８６行目「hDCDesk = GetDC(hWndDesk)」で、デスクトップのデバイスコンテキストを取得します。
２８７行目「LogicalPixcel = GetDeviceCaps(hDCDesk, LOGPIXELSX)」では、第二引数に図３９の２６１行目で定数設定した「LOGPIXELSX」を指定して「論理インチ当りの画面のピクセル数（X方向）」を取得し、関数プロシージャの戻り値とします。

２８９行目「Call ReleaseDC(hWndDesk, hDCDesk)」では、デスクトップのデバイスコンテキストを解放し、他のアプリから使用できるようにしています。
なお、このディスプレイ拡大率（実際にはピクセル数）の取得は、Excel本体を起動した時の値です。Excelを開いている途中でディスプレイ拡大率を変更しても反映されません。その際はExcelを開き直す必要があります。
しかも、このディスプレイ拡大率の取得コードが書かれたExcelファイルを閉じるだけでは不十分で、全てのExcelファイルを閉じてから、再度開くことが必要です。同じVBAコードが動くはずの他のOffice製品（OutlookやWord、PowerPoint）も閉じる必要があるのでは？と思ったのですが、Excel以外はそのままでも大丈夫でした（この辺りが理解できません）。

７ー４．ユーザーフォーム（UserForm1）

シート上の「UFボタン」をクリックすると図３１が呼び出され、その中の０２行目から起動されるのがUserForm1です。
このユーザーフォームは画面の寸法を計測するのと同時に、シート上の図形・マウスと位置を相互に合わせる役目も担っています。

７ー４ー１．フォーム上レイアウト

フォーム上のレイアウトは図４１のようにしました。

図４１別窓

表示する値は全１１種で、対応するLabelの番号は図４２の通りです。その他の説明用文字列は適当に並べています。

		ポイント単位	ピクセル単位
スクリーン 座標	X方向	Label1	Label3
	Y方向	Label2	Label4
ドキュメント 座標	X方向	Label5	Label7
	Y方向	Label6	Label8
セルの位置･図形の名前		Label9
ディスプレイ拡大率		Label10
Excel表示倍率		Label11

図４２別窓

なお、フォーム終了ボタンは設けていないので、右上×印クリックで終了させます。

７ー４ー２．フォームモジュール

７ー４ー２ー１．モジュールレベル変数

フォームモジュールの宣言部で、ディスプレイ拡大率（WinScreenRatio）と表示倍率（ZoomRatio）の変数宣言をします。

300. '==========　⇩(12)　フォームモジュールレベル変数の宣言 ============
301. Dim WinScreenRatio As Double 　 'ディスプレイ拡大率
302. Dim ZoomRatio As Double 　　　 'Excel表示倍率

図４３別窓

３０１行目、３０２行目ともにDouble型で宣言をしています。たぶんディスプレイ拡大率はSingle型（1、1.25、1.5、･･のはず）、表示倍率はInteger型（･･･、100、101、102、･･･のはず）で良い気がしますが、調べ切れていないので今回はDouble型で余裕を取っています。

７ー４ー２ー２．フォーム初期設定

起動時に呼び出されるInitializeイベントプロシージャでは、Labelコントロールの書式設定と併せ、ディスプレイ拡大率の設定とフォーム上への表示、及び表示倍率の取得と表示を、図４４のように行います。

310. '==========　⇩(13)　フォーム初期設定 ============
311. Private Sub UserForm_Initialize()
312. 　Me.Label1.TextAlign = fmTextAlignRight
313. 　Me.Label2.TextAlign = fmTextAlignRight
314. 　Me.Label3.TextAlign = fmTextAlignRight
315. 　Me.Label4.TextAlign = fmTextAlignRight
316. 　Me.Label5.TextAlign = fmTextAlignRight
317. 　Me.Label6.TextAlign = fmTextAlignRight
318. 　Me.Label7.TextAlign = fmTextAlignRight
319. 　Me.Label8.TextAlign = fmTextAlignRight
321. 　WinScreenRatio = LogicalPixcel / 96
322. 　Me.Label10.Caption = WinScreenRatio * 100 & "%"
323. 　Call Zoom_Ini
325. End Sub

図４４別窓

３１２行目「Me.Label1.TextAlign = fmTextAlignRight」では、Label1上に書かれる数字を右寄せにしています。これはLabelは標準では左寄せのため、桁上がりの時に小数点位置が左右に動いてしまう等の理由から数値らしく見えないので、右寄せにしています。数値を入れる他のLabel2～8も同様（３１３～３１９行目）に右寄せにしています。

３２１行目「WinScreenRatio = LogicalPixcel / 96」では、図４０のLogicalPixcelユーザー定義関数を呼び出し、論理インチ当りの画面ピクセル数を取得しています。LogicalPixcelの戻り値は、拡大率100%では96が戻ってきますので「96」で割り算をし、ディスプレイ拡大率としています。なおこの値はExcel起動時の値ですので、ディスプレイ拡大率を変更した際にはExcel本体を再立ち上げし直さないと正しい結果は得られません。（他のExcelが立ち上がったままだと、反映されない）
３２２行目「Me.Label10.Caption = WinScreenRatio * 100 & "%"」では、３２１行目で計算したディスプレイ拡大率を再びパーセント単位にしてLabel10に書き込んでいます。

３２３行目「Call Zoom_Ini」は図４５を呼び出し、表示倍率を取得しフォーム上に書き込んでいます。これは、フォーム起動直後では図４６のLayoutイベントが発生せず、表示倍率が表示されないのを防ぐためです。

７ー４ー２ー３．表示倍率取得・表示

図４４の３２３行目、図４６の３４８行目から呼び出されるのが図４５です。Excel表示倍率を取得しLabel11に書き込みます。

330. '==========　⇩(14)　表示倍率取得・表示 ============
331. Private Sub Zoom_Ini()
332. 　ZoomRatio = ActiveWindow.Zoom
333. 　Me.Label11.Caption = ZoomRatio & "%"
334. End Sub

図４５別窓

３３２行目「ZoomRatio = ActiveWindow.Zoom」では、Zoomプロパティで現在のシートの表示倍率を取得し、変数ZoomRatio（モジュールレベル変数）に代入します。表示倍率は、100%の時には「100」という値が取得されます。
３３３行目「Me.Label11.Caption = ZoomRatio & "%"」では、その表示倍率に「％」をくっつけて、文字列としてLabel11に書き込んでいます

７ー４ー２ー４．測定値表示

ユーザーフォームの位置やサイズに変更があった場合に発生するのがLayoutイベントです。

340. '==========　⇩(15)　測定値表示 ============
341. Private Sub UserForm_Layout()
342. 　Dim X As Single 　　　 '←X方向のポイント・ピクセル
343. 　Dim Y As Single 　　　 '←Y方向のポイント・ピクセル
344. 　Dim Pane2 As Range 　 '←左上領域の１番目セル
345. 　Dim Pane3 As Range 　 '←非可視領域の１番目セル
346. 　Dim R As Object 　　　 '←フォームの位置にあるセル又はオブジェクト
348. 　Call Zoom_Ini
350. 　X = Me.Left + (Me.Width - Me.InsideWidth) / 2
351. 　Y = Me.Top
353. 　Me.Label1.Caption = Format(X, "#0.00")
354. 　Me.Label2.Caption = Format(Y, "#0.00")
355. 　Me.Label3.Caption = Format(X * (96 / 72) * WinScreenRatio, "#0.00")
356. 　Me.Label4.Caption = Format(Y * (96 / 72) * WinScreenRatio, "#0.00")
358. 　With ActiveWindow
359. 　　X = X - .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / WinScreenRatio
360. 　　Y = Y - .Panes(1).PointsToScreenPixelsY(0) / (96 / 72) / WinScreenRatio
362. 　　X = X / (.Zoom / 100)
363. 　　Y = Y / (.Zoom / 100)
365. 　　Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)
366. 　　Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)
368. 　　If X > Pane3.Left Then
369. 　　　X = X + (Pane2.Left - Pane3.Left)
370. 　　End If
372. 　　If Y > Pane3.Top Then
373. 　　　Y = Y + (Pane2.Top - Pane3.Top)
374. 　　End If
376. 　End With
378. 　Me.Label5.Caption = Format(X, "#0.00")
379. 　Me.Label6.Caption = Format(Y, "#0.00")
381. 　X = X * (96 / 72) * WinScreenRatio
382. 　Y = Y * (96 / 72) * WinScreenRatio
384. 　Me.Label7.Caption = Format(X, "#0.00")
385. 　Me.Label8.Caption = Format(Y, "#0.00")
387. 　Set R = ActiveWindow.RangeFromPoint(Val(Me.Label3.Caption), Val(Me.Label4.Caption))
389. 　If R Is Nothing Then
390. 　　Me.Label9.Caption = "Nothing"
391. 　ElseIf TypeName(R) = "Range" Then
392. 　　Me.Label9.Caption = R.Address
393. 　Else
394. 　　Me.Label9.Caption = R.Name
395. 　End If
397. 　Set Pane2 = Nothing
398. 　Set Pane3 = Nothing
399. 　Set R = Nothing
400. End Sub

図４６別窓

３４８行目「Call Zoom_Ini」では図４５を呼出し、現状の表示倍率の取得と表示を行います。

次に、３５０行目「X = Me.Left + (Me.Width - Me.InsideWidth) / 2」でユーザーフォームのX方向、３５１行目「Y = Me.Top」でY方向の位置を取得しています。
今回はユーザーフォームの左上角を基準点として測定をしていますので、３５０行目は「X = Me.Left」では？と思われたかもしれません。それでも良いのですが、実際のLeft位置と見た目のフォームの左位置には、図４７のようにズレがあります。

図４７別窓

図４７は、ユーザーフォームのLeft位置、Top位置をJ2セル左上に合わせたものです。上端はJ2セル上端に合っているようですが、左端にはスキマが空いています。見た目のフォームの幅はInsideWidthで得られますので、今回は「(Me.Width - Me.InsideWidth) / 2」を補正し、「見た目のフォーム左上角」を基準とすることにしました。
なお、３５０～３５１行目で受け取った値は、ポイント単位です。

３５３行目「Me.Label1.Caption = Format(X, "#0.00")」、３５４行目「Me.Label2.Caption = Format(Y, "#0.00")」では、「スクリーン座標 × ポイント単位」のLabelに値を表示させています。なお、小数点以下の値が測定結果によりばらつく可能性がありますので、Format関数で小数点以下２桁表示に揃えています。

Label3～Label4は「スクリーン座標 × ピクセル単位」です。図２６では左上のエリアに相当します。
元のデータは図２６の左下エリアですので、「ディスプレイ拡大率 × (96/72)」を掛ければ良いことになります。
３５５行目「Me.Label3.Caption = Format(X * (96 / 72) * WinScreenRatio, "#0.00")」では、３５０行目で取得したフォームの左位置に対して「ディスプレイ拡大率 × (96/72)」を掛け、その値を小数点以下２桁に揃えています。
Y方向については、３５６行目「Me.Label4.Caption = Format(Y * (96 / 72) * WinScreenRatio, "#0.00")」で同様に換算をします。

３５８行目「With ActiveWindow」では、３５９～３７４行目を現在のシート基準とします。
３５９行目「X = X - .Panes(1).PointsToScreenPixelsX(0) / (96 / 72) / WinScreenRatio」、３６０行目「Y = Y - .Panes(1).PointsToScreenPixelsY(0) / (96 / 72) / WinScreenRatio」では、図２６の左下エリアで「ドキュメント座標に移動」するための準備としてドキュメント座標原点を引算します。その際、図２６でExcel原点を左下エリアに持ってくるために、Excel原点を「ディスプレイ拡大率 × (96/72)」で割り算しています。

３６２行目「X = X / (.Zoom / 100)」、３６３行目「Y = Y / (.Zoom / 100)」では、左下エリアから右下エリアへ移動し、その際に「表示倍率」を割り算します。

ドキュメント座標に入ったら、非可視領域の距離を足し算します。
まず３６５行目「Set Pane2 = .Panes(.Panes.Count).VisibleRange.Cells(1)」で左上領域の１番目セルを取得し、３６６行目「Set Pane3 = .Panes(1).VisibleRange.Cells(1).Offset(.SplitRow, .SplitColumn)」で非可視領域の１番目セルを取得します。

３６８行目「If X > Pane3.Left Then」では、ユーザーフォームが分割線を越えているか否かを調べ、越えている場合は３６９行目「X = X + (Pane2.Left - Pane3.Left)」で、非可視領域の距離（幅）を足し算します。
３７２～３７４行目ではY方向の補正をします。

「ドキュメント座標 × ポイント単位」の補正が完了しましたので、３７８行目「Me.Label5.Caption = Format(X, "#0.00")」、３７９行目「Me.Label6.Caption = Format(Y, "#0.00")」でLabel5・Label6に値を書き込みます。

この時点でのX値・Y値の単位はポイントですので、３８１行目「X = X * (96 / 72) * WinScreenRatio」、３８２行目「Y = Y * (96 / 72) * WinScreenRatio」のように、ピクセルにするために「ディスプレイ拡大率 × (96/72)」を掛けます。
そしてその値を３８４行目「Me.Label7.Caption = Format(X, "#0.00")」、３８５行目「Me.Label8.Caption = Format(Y, "#0.00")」で、Label7・Label8に表示させています。

３８７～３９５行目は、フォームの位置が指している「セルまたはオブジェクト名」を表示するコードです。これを実現するために「ActiveWindow.RangeFromPoint」メソッドを使い、引数に「スクリーン座標のピクセル値（第一引数＝X方向、第二引数＝Y方向）」を指定します。
この「スクリーン座標のピクセル値」はLabel3とLabel4で既に表示されているため、その値（文字列）をVal関数で数値に変換し、３８７行目「Set R = ActiveWindow.RangeFromPoint(Val(Me.Label3.Caption), Val(Me.Label4.Caption))」のように引数指定をし、変数Rでオブジェクトを受け取ります。

RangeFromPointメソッドは、セル又は図形等のオブジェクトを戻します。それ以外（≒シートの可視範囲を外れた。また分割線上にある）の時にはNothingを戻します。なおオブジェクトが存在する場合は、セルよりもオブジェクトが優先するようです。

但しウィンドウ分割・ウィンドウ枠固定をすると「最も遠い領域（ActiveWindow.Panes(ActiveWindow.Panes.Count)」が全ての可視領域を占めている　と認識しているようです。
ですので図４８のように、最遠領域上で見てオブジェクトであればオブジェクトが戻ります。オブジェクトでは無い時はRangeオブジェクトが戻るのですが、その際は何故か「正しいセル」が戻ります（図４８の一番右側）。

図４８別窓

この矛盾を解消するには、分割状態の時には領域ごとに表示範囲を把握し、ユーザーフォーム位置から最遠領域の位置を補正してやれば正しいオブジェクトが表示される気はするのですが、結構面倒そうなので今回は諦めました。RangeFromPointメソッドを使う場合は注意が必要です。

ウィンドウ分割時等は正しいオブジェクトが戻らない場合がある事を前提に、セルのアドレスやオブジェクト名を表示させるのが３８９～３９５行目です。
まず３８９行目「If R Is Nothing Then」で、戻り値がNothingだった時を選り分けます。その際は３９０行目「Me.Label9.Caption = "Nothing"」で"Nothing"と表示することにしました。
Nothing以外の時はRangeや図形等のオブジェクトです。オブジェクトの型を表示するのも１つの方法ですが、今回はセルの場合はアドレスを、それ以外のオブジェクトの場合はオブジェクトの名前を表示させることにしました。
セルの場合は３９１行目「ElseIf TypeName(R) = "Range" Then」で選り分け、３９２行目「Me.Label9.Caption = R.Address」でセルのアドレスを表示させます。
それ以外（３９３行目「Else」）の時は図形などのオブジェクトですので、３９４行目「Me.Label9.Caption = R.Name」でオブジェクトの名前（"図形01" など）を表示させます。

なお、Layoutイベントは親コンテナの位置に変更があっても発生するのですが、ユーザーフォームの親相当のExcel本体の移動があってもLayoutイベントは発生しません。確かにユーザーフォームのプロパティを探してもParentがありません。
ですので、フォームを起動したままExcel本体を移動しても値が変化せず、間違った表示値となることに御注意下さい。

８．まとめ

今回は「スクリーン座標とドキュメント座標」「ピクセル単位とポイント単位」の変換に加え、「ウィンドウ枠固定やウィンドウ分割」の補正について説明してきました。これらの変換式を作成する際には、私も昔から「こうだっけ？」「ああだっけ？」と毎回悩んでいたので、今回は分かり易い説明図を　という気持ちで作ったのが図２６です。
「Excel原点」を補正する部分には、まだ改良の余地がありそうですが、これからはあまり悩まなくても済みそうな気がします。

但し換算時の誤差は、ディスプレイ拡大率や表示倍率が100%以外の時には特に大きい様です。どのような条件でどのくらい誤差が発生するかは今回調べませんでしたが、分かったとしても誤差を補正できるかも分かりません。
「だいたい位置が合っている」くらいの意識で使うしか無いように思われます。

アプリ実例・関連する項目

「Excel図形等の位置、ディスプレイ上の位置の取得」
「フォームコントロールの内側サイズ」

サンプルファイル

ドキュメント座標～スクリーン座標間の換算（its-038.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。