2020/08/21

Excel図形等の位置、ディスプレイ上の位置の取得

• １．背景
• ２．概要
• ３．ユーザーフォームの外観を作る
• ４．フォームモジュール
• 　４－１．宣言部
• 　４－２．フォームのInitializeイベント
• 　４－３．フォームのLayoutイベント
• 　４－４．位置計算プロシージャ
• 　　４－４－１．変数宣言
• 　　４－４－２．静的な変数の計算
• 　　４－４－３．動的な変数の計算
• 　　　４－４－３－１．Windowモードの計算
• 　　　４－４－３－２．Excelモードの計算
• 　　４－４－４．フォーム内のLabelへの書込み
• 　４－５．トグルボタンによる切替え
• ５．標準モジュール（Module１）
• ６．最後に

１．背景

「ディジタイザー」というものをご存じでしょうか。
最近は見掛けなくなりましたが、アナログからデジタルへの転換期に使用された転写板です。広げた図面の上に、十字マークの付いた透明なカーソルを乗せ、各ポイントでボタンを押して位置座標をデジタル化するものです。
図面だけで無く、写真や拓本みたいなものも当時盛んにデジタル化し、寸法やら面積やらを計算したものです。

今回紹介するのはそのディジタイザーみたいなもので、測るのはディスプレイ上のアプリの位置です。もちろんExcelのシート上の図形やグラフ等の位置も測定できますし、ディスプレイ上を定規で測った覚えのある方にはお勧めです。

２．概要

外観的には図２－１のように半透明のダイアログが現れますので、タイトル部（ダイアログの上部）をドラッグしながら「透明部の十字の交点」を位置測定の対象（図２－１では図形の右端）に合わせます。するとダイアログの右側に、原点からの距離（単位：ポイント）が表示されます。

図２－１

「原点」について少し補足します。Excelシート上に配置した図形等の位置の原点は「Ａ１セルの左上角」になります。また画面全体の原点は「ディスプレイの左上角」になります。（図２－２）

図２－２

今回のダイアログにはその原点の切替スイッチ（トグルボタン）を設けてあり、ディスプレイ左上原点の場合には「Windowモード」を、ExcelのＡ１セル左上原点の場合には「Excelモード」を選択します。

尚、一番下のサンプルファイルには Sheet１上に「Start」ボタンを配置してあり、ダイアログを起動（モードレスで起動）できます。また、閉じるボタンは設けていませんので、右上の×印で閉じてください。

３．ユーザーフォームの外観を作る

フォーム上に、読み取り位置の目印である十字マークを作る必要があります。直線を２本引けば完了なのですが、Excelのフォーム上に図形を描くことは簡単ではありません。その代用として「Imageコントロール」を細くして直線を作っています。

図３－１

また、位置表示用としてLabelコントロールを２つ（X軸用、Y軸用）配置します。
最後に原点変更用にトグルボタンを配置します。今回は原点が２つですので、２つのValue値（True ,False）を持つトグルボタンが使い易いですが、普通のCommandButtonでもコードを修正すれば充分可能と思います。

４．フォームモジュール

４－１．宣言部

フォームの透明化には、Windows APIを使う必要があります。Windows2000の頃に追加された拡張ウィンドウスタイルの中の、透明化を使用します。

1. '==========　⇩①　宣言部　====================
2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
3. 　　　(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
4. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
5. 　　　(ByVal hWnd As Long, ByVal nIndex As Long) As Long
6. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
7. 　　　(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
8. Private Declare Function SetLayeredWindowAttributes Lib "user32" _
9. 　　　(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long
11. Const GWL_EXSTYLE = (-20)　　　　　　　 '拡張ウィンドウスタイル
12. Const WS_EX_LAYERED = &H80000　　　　 'レイヤーウィンドウの作成
13. Const LWA_COLORKEY = 1&　　　　　　　 '実行する設定は「透明にする対象」にする
14. Const LWA_ALPHA = 2&　　　　　　　　　 '実行する設定は「不透明度」にする

図４－１

フォームを透明化する手順は図４－２の流れです。その手順に必要なAPIと設定値を宣言部で宣言及び定数設定を行います。

図４－２

今回必要なAPIは、図４－２の「FindWindow」「GetWindowLong」「SetWindowLong」「SetLayeredWindowAttributes」の４つですので、それらを２～９行目で宣言しています。
また、そのAPI実行に必要な値を１１～１４行目で定数宣言しています。
なお１３・１４行目の定数の内、今回使用するのは１３行目の「LWA_COLORKEY」です。「LWA_ALPHA」は使用しないので削除しても構いませんが、こちらを使用するとどのようなフォームになるかは、図４－６で紹介します。

今回使用するフォームの透明化には「拡張ウィンドウスタイル」の中の「WS_EX_LAYERED」を使用します。その他にも図４－３のように、様々なスタイルが存在します。
図４－３に、拡張ウィンドウスタイル一覧を転記（出典：http://chokuto.ifdef.jp/advanced/ prm/extended_window_style.html）します。

拡張ウィンドウのスタイル

値	拡張ウィンドウのスタイル	意味
0x00000000	WS_EX_LEFT	一般的な左揃えされたプロパティを持つウィンドウを作成します。（デフォルト属性）
0x00000000	WS_EX_LTRREADING	左から右への読み取り順序を持つプロパティを持ったウィンドウを作成します。（デフォルト属性）
0x00000000	WS_EX_RIGHTSCROLLBAR	垂直スクロールバーがある場合には、スクロールバーがクライアント領域の右側に置かれます。 （デフォルト属性）
0x00000001	WS_EX_DLGMODALFRAME	二重の境界線を持つウィンドウを作成します。
0x00000004	WS_EX_NOPARENTNOTIFY	このスタイルで作成された子ウィンドウが作成されたり破棄されたりするときに、その親ウィンドウにWM_PARENTNOTIFYメッセージを送らないように指定します。
0x00000008	WS_EX_TOPMOST	このスタイルで作成されたウィンドウは最前面ウィンドウとなることを表します。 ウィンドウが非アクティブな状態でも、ほかのウィンドウの前面に表示されます。このスタイルを追加・削除するには、SetWindowPos関数を使用します。
0x00000010	WS_EX_ACCEPTFILES	このスタイルで作成されたウィンドウがドラッグアンドドロップファイルを受け入れることを表します。
0x00000020	WS_EX_TRANSPARENT	このスタイルで作成されたウィンドウは、（同じスレッドで作成された）このウィンドウの下にある兄弟ウィンドウが描画されるまでは再描画されません。 下にあるウィンドウのビットは既に描画されているため、このウィンドウは透明であるように見えます。
0x00000040	WS_EX_MDICHILD	マルチドキュメントインターフェース（MDI）の子ウィンドウを作成します。
0x00000080	WS_EX_TOOLWINDOW	ツールウィンドウを作成します。一般にフローティングツールバーとして使用されます。 ツールウィンドウは標準のタイトルバーより小さいタイトルバーを持っており、ウィンドウタイトルは小さいフォントで描画されます。 ツールウィンドは、タスクバーや、ユーザーが [Alt]+[Tab] キーを押したときに現れるダイアログ内には表示されません。 ツールウィンドウがシステムメニューを持つ場合、タイトルバーにアイコンが表示されませんが、右クリックや [Alt]+[Space] キーを押すことによってシステムメニューを表示させることができます。
0x00000100	WS_EX_WINDOWEDGE	ウィンドウが盛り上がった縁の境界線を持つことを表します。
0x00000188	WS_EX_PALETTEWINDOW	WS_EX_WINDOWEDGEとWS_EX_TOOLWINDOWとWS_EX_TOPMOSTの組み合わせです。
0x00000200	WS_EX_CLIENTEDGE	縁が沈んで見える境界線を持つウィンドウであることを表します。
0x00000300	WS_EX_OVERLAPPEDWINDOW	WS_EX_WINDOWEDGEとWS_EX_CLIENTEDGEの組み合わせです。
0x00000400	WS_EX_CONTEXTHELP	ダイアログボックスのタイトルバーに疑問符（［?］）ボタンを追加します。 ユーザーがこのボタンをクリックすると、マウスポインタに疑問符が付きます。その後、ユーザーが子ウィンドウをクリックすると、子ウィンドウはWM_HELPメッセージを受け取ります。 子ウィンドウはこのメッセージを親ウィンドウのウィンドウプロシージャに渡すべきです。親ウィンドウはHELP_WM_HELPコマンドを用いてWinHelp関数を呼び出すべきです。 ヘルプアプリケーションは、子ウィンドウに対するヘルプを含んだポップアップウィンドウを表示します。 このスタイルをWS_MAXIMIZEBOXやWS_MINIMIZEBOXとともに指定することはできません。
0x00001000	WS_EX_RIGHT	右揃えされたプロパティを持つウィンドウを作成します。このスタイルはウィンドウクラスに依存します。 このスタイルは、ヘブライ語やアラビア語をサポートしているシステムで有効です。それ以外では、このスタイルは無視されます。 スタティックコントロールやエディットコントロールに対してこのスタイルを用いると、それぞれSS_RIGHTスタイルやES_RIGHTスタイルと同じ効果になります。 ボタンコントロールに対してこのスタイルを用いると、BS_RIGHTスタイルおよびBS_RIGHTBUTTONスタイルと同じ効果になります。
0x00002000	WS_EX_RTLREADING	右から左への読み取り順序を持つプロパティを持ったウィンドウを作成します。 このスタイルは、ヘブライ語やアラビア語をサポートしているシステムで有効です。それ以外では、このスタイルは無視されます。
0x00004000	WS_EX_LEFTSCROLLBAR	垂直スクロールバーがある場合には、垂直スクロールバーがクライアント領域の左側に置かれます。 このスタイルは、ヘブライ語やアラビア語をサポートしているシステムで有効です。それ以外では、このスタイルは無視されます。
0x00010000	WS_EX_CONTROLPARENT	ウィンドウはダイアログボックスナビゲーションの役割を果たす子ウィンドウを含んでいます。 このスタイルが指定されると、ファイアログマネージャは、ユーザーが［Tab］キーやカーソルキー、キーボードニーモニックを処理するようなナビゲーション操作を行ったときに、このウィンドウの子ウィンドウに対する処理を行います。
0x00020000	WS_EX_STATICEDGE	ユーザーの入力を受け付けない項目用の、立体的に見える境界スタイルを持つウィンドウを作成します。
0x00040000	WS_EX_APPWINDOW	ウィンドウが可視状態のときに、トップレベルウィンドウがタスクバー上に置かれるようにします。
0x00080000	WS_EX_LAYERED （今回使用）	Windows 2000/XP： レイヤーウィンドウを作成します。子ウィンドウにこのスタイルを使用することはできません。 また、CS_OWNDCまたはCS_CLASSDCクラススタイルを持つウィンドウにこのスタイルを使用することはできません。
0x00100000	WS_EX_NOINHERITLAYOUT	Windows 2000/XP： このスタイルのウィンドウは子ウィンドウにウィンドウレイアウトを渡しません。
0x00400000	WS_EX_LAYOUTRTL	アラビア語・ヘブライ語Windows 98/Me/2000/XP： 水平方向の原点が右端にあるウィンドウを作成します。水平方向の座標の値は左に向かって増加します。
0x02000000	WS_EX_COMPOSITED	Windows XP： すべての子孫ウィンドウをダブルバッファリングを用いて下から上に向かっての描画順序で描画します。 CS_OWNDCまたはCS_CLASSDCクラススタイルを持つウィンドウにこのスタイルを使用することはできません。
0x08000000	WS_EX_NOACTIVATE	Windows 2000/XP： このスタイルのトップレベルウィンドウは、ユーザにクリックされたときにフォアグラウンドウィンドウになりません。 システムは、ユーザーがフォアグラウンドウィンドウを最小化したり閉じたりしたときに、このウィンドウがフォアグラウンドにならないようにします。 このウィンドウをアクティブにするには、SetActiveWindow関数またはSetForegroundWindow関数を使用します。 デフォルトでは、ウィンドウはタスクバーに表示されません。タスクバーに表示されるようにするには、WS_EX_APPWINDOWスタイルを使用します。

図４－３

尚、Microsoftのサイトに「拡張ウィンドウを使用すると、Windows 8.1、Windows Server 2012 R2、Windows 7、Windows Server 2008 R2では、コンピューターがクラッシュします。」とありました。Updateを正しく行っていれば大丈夫そうですが、対象のO/Sを使っている方はご注意下さい。

４－２．フォームのInitializeイベント

フォーム起動時に最初に発生するイベントがInitializeイベントです。ここでは静的なフォームの初期設定をします。

15. '==========　⇩②　Initializeイベント　====================
16. Private Sub UserForm_Initialize()
17. 　Dim hWnd As Long　　　 '←取得するユーザーフォームのハンドル
18. 　Dim Style As Long　　　 '←取得・設定する拡張ウィンドウスタイル
20. 　Me.BackColor = RGB(0, 0, 0)
22. 　hWnd = FindWindow("ThunderDFrame", Me.Caption)
23. 　Style = GetWindowLong(hWnd, GWL_EXSTYLE)
24. 　Style = Style Or WS_EX_LAYERED
25. 　Call SetWindowLong(hWnd, GWL_EXSTYLE, Style)
26. 　Call SetLayeredWindowAttributes(hWnd, Me.BackColor, 0, LWA_COLORKEY)
28. 　Me.Image1.Width = 0.5
29. 　Me.Image1.Top = 0
30. 　Me.Image1.Height = Me.InsideHeight
32. 　Me.Image2.Height = 0.5
33. 　Me.Image2.Left = 0
34. 　Me.Image2.Width = Me.InsideWidth
36. 　Me.Label1.ForeColor = RGB(255, 0, 0)
37. 　Me.Label2.ForeColor = RGB(255, 0, 0)
39. 　Me.ToggleButton1.ForeColor = RGB(255, 0, 0)
40. 　Me.ToggleButton1.Caption = "Window"
41. End Sub

図４－４

まず２０行目のフォームBackColorの色設定について説明します。
今回２６行目の「SetLayeredWindowAttributes」では、フォームの「Me.BackColor」に対して透明化を行っています。調べてみると、その透明にする対象の色は「0x00bbggrr」の形で与えておく必要があるようなのです。
一方初期のフォームのプロパティでは、BackColor＝&H8000000F&（ボタン表面）と「システムカラー」が設定されており、色番号の先頭に「80」が付いています。この「80」が付いていると「SetLayeredWindowAttributes」の透明化の対象の色にならないようです。
ですので「SetLayeredWindowAttributes」実行より前の２０行目で、フォームBackColorをRGB(0, 0, 0)とシステムカラーでは無い色（色番号の先頭が「00」）に設定します。なお、ここでは RGB(0, 0, 0)＝黒色　にしていますが、透明にしてしまうので何色でも問題ありません。

２２行目では、API「FindWindow」を使って「フォーム」のウィンドウハンドルを取得しています。この中の第一引数にはウィンドウクラス名を指定しますので、ユーザーフォームのクラス名である「ThunderDFrame」を指定します。
第二引数にはウィンドウのタイトル（ウィンドウ名）を指定しますので「Me.Caption」を指定します。
こうすることで、起動しているフォームのハンドルが得られ、値を変数hWndに代入します。

２３行目は API「GetWindowLong」を使い、フォームの現在の拡張ウィンドウスタイルを取得します。
第一引数に２２行目で得たハンドルを指定し、第二引数に取得したいデータの値を指定します。取得したいデータは、図４－５から選ぶことになりますが、今回の透明化は拡張ウィンドウスタイルですので「GWL_EXSTYLE（値：-20）」を指定します。
取得した現状の拡張ウィンドウスタイルは、変数Styleに代入されます。

GetWindowLong・SetWindowLongで取得・設定するデータ

定数	値	取得される属性
GWL_WNDPROC	-4	ウィンドウプロシージャのアドレス （直接ｳｨﾝﾄﾞｳﾌﾟﾛｼｰｼﾞｬを呼び出すには CallWindowProc関数を使う）
GWL_HINSTANCE	-6	アプリケーションのインスタンスハンドル
GWL_HWNDPARENT	-8	親ウィンドウのハンドル
GWL_STYLE	-16	ウィンドウスタイル
GWL_EXSTYLE	-20	拡張ウィンドウスタイル
GWL_USERDATA	-21	ウィンドウに関連付けられたアプリケーション定義の32ビット値
GWL_ID	-12	ウィンドウ ID

図４－５

２４行目はその現状のスタイルに、フォームの透明化を可能にする「WS_EX_LAYERED（値：&H80000）」を加えます。
加える時には必ず「＋では無くOr」を使います。これは、もし現状のスタイルに既に加えたい項目が入っていた場合に足し算をしてしまうと、計算後の値がまるで違うスタイルの値となってしまう為です。

このスタイルの加え方のカラクリと、拡張ではない標準のウィンドウスタイル「GWL_STYLE（値：-16）」については、「Book内で完結するフォーム表示のHelp画面」を参照して下さい。

フォーム透明化用の WS_EX_LAYERED を加えたStyle値を、２５行目で「SetWindowLong」を使って再び拡張ウィンドウスタイルに設定します。

２６行目では透明化の設定をします。「SetLayeredWindowAttributes」の構文は以下のようになっています。
SetLayeredWindowAttributes（ hwnd, crKey, bAlpha, dwFlags）
　hwnd　 ：ウィンドウハンドル
　crKey　 ：レイヤードウィンドウを合成するときに使われる透明色キー
　bAlpha　：レイヤード ウィンドウの不透明度を表現するために使用されるアルファ値（完全透明← 0 ～ 255 →不透明）
　dwFlags ：LWA_COLORKEY（値：1）、LWA_ALPHA（値：2）のいずれかひとつ、または両方を指定

第４引数の「dwFlags」は、LWA_COLORKEYを指定すれば第２引数の「crKey（設定した色を透明にしてウィンドウを描画）」を有効にし、LWA_ALPHAを指定すれば第３引数の「bAlpha（設定した透明度でウィンドウを半透明に描画）」を有効にするものです。両方を指定「LWA_COLORKEY + LWA_ALPHA」すると第２・第３の両方が有効になり、両方の透明化の組合せで表現されます。

「bAlpha」値を振り「dwFlags」設定の組み合わせで、今回のフォームを表示してみたのが図４－６です。


図４－６

bAlphaを有効にした場合、bAlpha値は０～２５５が設定範囲ですが、ゼロではフォームの形跡すらありませんでした。また、bAlpha値を小さくしていくと、フォームのタイトル部も透明化されていくのが分かります。
一方、crKeyのみを有効にした場合（＝今回）、当然ですがbAlpha値には影響を受けず、且つタイトル部は透明化されません。

今回は第４引数にLWA_COLORKEYのみを指定していますので、第２引数のcrKeyを有効としています。つまり２０行目で指定した「Me.BackColor」の色の部分を透明にします。
第３引数のbAlphaにはゼロを指定していますが、今回は第３引数は無視していますので、何を設定しても同じです。

２８～３４行目は、ダイアログ上の十字マークを作っているImageコントロールの設定です。十字マークの縦棒はImage１、横棒はImage２です。
２８行目・３２行目は、その棒の太さを設定しています。今回は0.5ポイントにしましたが、ユーザーの好みだと思います。但し、２ポイント以上にすると棒が二重になりますので具合が悪いかもしれません。

十字の縦棒（Image１）は、ダイアログの上端面（Top=0）から下端面一杯（Height=Me.InsideHeight）に描画しました。
また横棒（Image２）も左端面（Left=0）から右端面一杯（Width=Me.InsideWidth）に描画しています。
当然ながら、フォーム設計時に太さも含めて配置しても問題ありません。

３６～３７行目は、位置を表示するためのLabelの色設定です。
文字色（ForeColor）として、黒色（＝RGB(0,0,0)）を指定すると、フォームのBackColorと同じになってしまうため、文字も透明になってしまいます。そのため赤色（＝RGB(255,0,0)）にしました。
逆に言えば RGB(0,0,0)でなければ良いので、例えば RGB(0,0,18)を設定すれば「ほぼ黒色の文字」になります。

では、標準のLabelの文字色のままではダメなのかを試してみました。標準Labelの色はシステムカラー「ボタンの文字」で番号は「&H80000012」です。RGBで言えば「RGB(0,0,18)相当」なのですが、実行してみると文字はほぼ透明になります。
理屈については結局分かりませんでしたが、RGBによる色とシステムカラーは、作りが全く違うようです。

３９行目は、トグルボタン表面文字の色を赤色に変更しています。理由は文字色の場合（３６～３７行目）と全く同じです。
また、フォーム起動時のToggleButtonのValue値は「False」であり、それは「原点はディスプレイの左上角」であることを表しているため、「Windowモード」の「Window」の文字をボタン表面に書き込んでいます。
ボタン操作時には、図４－１５のプロシージャで文字の書き換えを行います。

Initializeイベントを抜けると、フォームが表示されますが、この透明化処理は非常に重い処理です。私のPCで初回起動時は１０秒ほど掛かりました。透明化を行う面積（＝フォームの大きさ）は出来るだけ小さい方が良さそうです。

４－３．フォームのLayoutイベント

フォームが起動する際に発生するイベントは「Initialize」→「Layout」→「Activate」の順となります。また起動後にフォームを移動させた際には「Layout」イベントが随時発生します。
ですので、Layoutイベントに位置計算のコードを結び付けておくことで、起動直後もフォーム移動時も位置計算がされることになります。図４－７がLayoutイベントプロシージャになります。

42. '==========　⇩③　フォームのLayoutイベントプロシージャ　====================
43. Private Sub UserForm_Layout()
44. 　Call Data_Update
45. End Sub

図４－７

４４行目で、位置計算をするData_Updateプロシージャ（図４－８）を呼び出します。
Data_Update内のコードを全てLayoutプロシージャに記述しても良いのですが、他の機能を追加する可能性もありますので、別プロシージャにして呼び出す形にしています。

４－４．位置計算プロシージャ

図４－７、および図４－１５から呼び出されるのが、図４－８の位置計算プロシージャです。

46. '==========　⇩④　位置計算　====================
47. Sub Data_Update()
48. 　Dim x As Double　　　　 '←原点から十字マークまでのポイント（左右方向）
49. 　Dim y As Double　　　　 '←原点から十字マークまでのポイント（上下方向）
50. 　Dim xu As Double　　　　 '←フォーム端から十字マークまでのポイント(左右方向)
51. 　Dim yu As Double　　　　 '←フォーム端から十字マークまでのポイント(上下方向)
52. 　Dim Border As Double　　 '←フォームの見えない枠線の太さ
54. 　Border = (Me.Width - Me.InsideWidth) / 2
55. 　xu = Me.Image1.Left + Me.Image1.Width / 2 + Border
56. 　yu = Me.Image2.Top + Me.Image2.Heigth / 2 + (Me.Height - Me.InsideHeight) - Border
58. 　If Me.ToggleButton1.Value = False Then　　　　　 'Window（原点：ディスプレイの左上角）
59. 　　x = Me.Left + xu
60. 　　y = Me.Top + yu
61. 　Else　　　　　　　　　　　　　　　　　　　　 'Excel（原点：Excelシートの左上角）
62. 　　x = (Me.Left + xu - ActiveWindow.PointsToScreenPixelsX(0) * 0.75) / ActiveWindow.Zoom * 100
63. 　　y = (Me.Top + yu - ActiveWindow.PointsToScreenPixelsY(0) * 0.75) / ActiveWindow.Zoom * 100
64. 　End If
66. 　Me.Label1.Caption = "Left= " & Format(x, "0.00")
67. 　Me.Label2.Caption = "Top= " & Format(y, "0.00")
68. End Sub

図４－８

４－４－１．変数宣言

４８～５２行目は、プロシージャ内で使用する変数の宣言です。

最初に５２行目の変数Borderについて説明します。
恥ずかしながら今まで「フォーム左上角の位置は、Left・Top で得られる」と簡単に考えていたのですが、実際にやってみると５ポイントほど右にズレている（私のPC（Win10＋Excel2016）上で）事を発見。色々なサイトを調べても、その記述はありません。（「少しズレる」との書込みは２件程見つけました）
そこで調べてみた結果、図４－９のように「見えているフォームの外側にフォームの本当の外枠（図４－９の点線の部分）があり、フォームの位置は見えない左上角（図４－９の〇印）を基準にしている」みたいだ、と言うことが分かりました。
今回は「見える外枠の外側に透明な枠がある」様子から、この幅をBorderと言う変数名にしました。

図４－９

正式な文書は見つかっていないので、以上の事は推測の域を出ませんが、寸法的には良く合います。またExcelのバージョンによって異なっている可能性もありますし、タイトルの上側には見えない枠が何故無いのかも分かりません。

４８～５１行目の変数は、図４－１０の「フォーム内の十字の交点」と「フォームの原点」および「計測の原点」との距離としました。

図４－１０

４－４－２．静的な変数の計算

５４～５６行目は、固定されている変数の計算をしています。図４－１１で説明します。

図４－１１

まず５４行目では「Border」の値を求めます。 図４－１１の様に「見えない枠がフォームの左右に同じ太さで存在する」と仮定すると「 (Me.Width - Me.InsideWidth) / 2」で求まります。
尚、フォーム下側にも見えない枠があるのですが、それも同じ太さと仮定をしています。

次に左右方向の、フォーム原点（〇印）からImageコントロールで描いた十字の中心までの距離を求めます。（５５行目）
Image1.Leftで求まる距離は InsideWidthを基準とした距離ですので、フォーム原点からの距離にするには、見えない枠Borderの太さを足す必要があります。またImage1.LeftはImage1の左端からの距離ですので、Image1の太さ（Width）の半分を足します。
よって求めたい左右方向距離 xu は「Me.Image1.Left + Me.Image1.Width / 2 + Border」になります。

最後に上下方向の、フォーム原点（〇印）からImageコントロールで描いた十字の中心までの距離を求めます。（５６行目）
まずImage2の上からの距離（InsideHeight基準）＋Image2の太さ（Height）の半分　までは左右方向と同等です。あとはタイトル部の高さを足す必要があるのですが、これは全体の高さHeightからInsideHeightとBorderを引いて求めます。
よって求めたい上下方向距離 yu は「Me.Image2.Top + Me.Image2.Heigth / 2 + (Me.Height - Me.InsideHeight) - Border」になります。

今回フォームのサイズが変えられる様な仕様では無いので、この５４～５６行目の計算はフォーム起動時に１回だけ実行すればＯＫです。サンプルファイルでは一連の寸法を分かり易くするために、静的な距離計算と動的な距離計算を一つのプロシージャに記載していますが、実務ではInitializeイベント辺りに記載するのが良いと思います。

４－４－３．動的な変数の計算

５８行目では、トグルボタンのON-OFFで計算式を分けています。初期状態のOFF（ToggleButton1.Value=False）の時は、ディスプレイの左上角を原点とする「Windowモード」、ボタンを押したON（ToggleButton1.Value=True）の時は、Excelのシートの角（Ａ１セルの左上角）を原点とする「Excelモード」です。

４－４－３－１．Windowモードの計算

「Windowモード」は、図４－１２の方法で計算します。
もともとフォームの位置は、ディスプレイの左上角を原点としてポイント単位で指定します。

図４－１２

ですので、フォーム内の十字マークの交点の位置は以下の計算式になります。
　左右方向：x = Me.Left + xu
　上下方向：y = Me.Top + yu

４－４－３－２．Excelモードの計算

次に「Excelモード」です。
まず位置を示す座標には、「画面座標」と「ドキュメント座標」という２つの座標があります。
例えで言うと、海に大きな船が浮いていて、その船の各設備（船長室や荷物室、食堂など）には船首を基準とした番地が付いています。船の上で暮らしているだけであれば、その番地さえ分かっていれば不自由しません。
しかし船は動いていますので、船の各設備の絶対位置（経度・緯度）が知りたい場合にはその設備の所まで行き、GPS等を使うことになります。

ここで、船はExcel（＝ドキュメント座標）、海はディスプレイ（＝画面座標）に相当します。また、GPSはその間をつなぐ道具で、それに適した「PointsToScreenPixelsX」および「PointsToScreenPixelsY」と言うメソッドがExcelに存在します。
ドキュメント座標と画面座標の間をつないでいる様子を図４－１３に表します。

図４－１３

この「PointsToScreenPixelsX」および「PointsToScreenPixelsY」には引数を設定するのですが、その引数は「ドキュメント座標上の位置をポイントで」与えます。図４－１３では引数に「ゼロ」を与えているために、Excelの原点であるＡ１セルの左上角を指すのです。
引数ゼロは、上の例で言えば船首の位置を測っているのと同等です。また船上の各設備の絶対位置を測るには、船上でその設備の位置でGPSを使って測れば良いのと同じように、引数にExcel上での位置を指定すれば良いことになります。

ちなみに「PointsToScreenPixelsX」および「PointsToScreenPixelsY」の戻り値は「ピクセル」です。ピクセルとポイントの間には、以下の関係がありますので、単位変換が可能です。

７２pt(ポイント)＝９６px(ピクセル) 　　（「ピクセル → ポイント」換算時は、ピクセルに「 72/96 (＝0.75) 」を掛ける）

ですので、原点をExcel基準にした場合の計算式は、５９～６０行目の「ディスプレイ左上角を原点とした距離」に対し、左右方向は「PointsToScreenPixelsX（0）ｘ　0.75（ピクセル→ポイント変換）」を引き算し、上下方向は「PointsToScreenPixelsY（0）ｘ　0.75（ピクセル→ポイント変換）」を引き算したものになります。
なお、「PointsToScreenPixelsX」および「PointsToScreenPixelsY」はWindowオブジェクトのメソッドですので、オブジェクトとしては「ActiveWindow」を指定します。

ここまでは、Excelの表示倍率が100%の時の話しです。
Excelを拡大縮小した場合の考慮が必要です。図４－１４に100%画面（左側のシート）と50%画面（右側のシート）を並べてみました。

図４－１４

左側シート（100%画面）で、Excel原点から「x軸＝100ポイント、y軸＝100ポイント」離れた点に、今回の透明ダイアログの十字があるとします。この場合は、X軸で言えば「Me.Left + xu - ActiveWindow.PointsToScreenPixelsX(0) * 0.75」= 100 ポイントとなる位置です。
十字の位置をそのままにして、Excelを縮小して50%画面にしたのが図４－１４の右側になります。十字の位置は動いていませんが、50%画面になっているため、十字は倍の200ポイントに居ることになります。

Excelの拡大縮小率は「ActiveWindow.Zoom」で取得でき、それを使い計算式を補正したのが以下となります（６２～６３行目）。

４－４－４．フォーム内のLabelへの書込み

以上で、ディスプレイ左上角が原点、またはExcelシート左上角が原点の距離（単位：ポイント）が、変数ｘ・変数ｙに代入されましたので、左右方向（ｘ値）はLabel1に、上下方向（ｙ値）はLabel2に表示します。

表示するにあたり、ｘ値・ｙ値はDouble型ですので小数点以下の桁数が多い場合がありますので、とりあえず小数点２桁に揃えることにしました。
関数としてはFormatを使用し、ｘ値であれば「Format(x, "0.00")」とし、数値の先頭に「Left=」という文字列を結合させて表示しています。（６６～６７行目）

４－５．トグルボタンによる切替え

今回のダイアログには、ディスプレイ左上角を原点とする「Windowモード」とExcelシート左上角を原点とする「Excelモード」を切り替えられるように作りました。
図４－１５は、その切替ボタンであるToggleButtonをクリックした時に動作するプロシージャです。

69. '==========　⇩⑤　トグルボタンによる切替え　====================
70. Private Sub ToggleButton1_Click()
71. 　If ToggleButton1.Value = True Then
72. 　　ToggleButton1.Caption = "Excel"
73. 　Else
74. 　　ToggleButton1.Caption = "Window"
75. 　End If
76. 　Call Data_Update
77. End Sub

図４－１５

初期状態（フォームの起動直後）は、ToggleButtonは「押されていない状態（Value値＝False）」です。押されていない状態は「Windowモード」ということにしましたので、初期は図４－４の４０行目で「Window」の文字を表面に記入しています。
その状態からボタンが押されると、ToggleButtonのValue値はTrueに変わり、図４－１５のプロシージャが呼び出されます。

まず７１行目のIf文で、Value値で仕訳けられます。
「ToggleButtonが押された状態（＝Excelモード）」では７２行目が実行され、ボタン表面の文字列が「Excel」に変わります。続いてIf文を抜け出し、７６行目を実行します。
７６行目は「Date_Updateプロシージャ（＝図４－８）」を呼び出しており、「Excelモード」としての計算をし、ダイアログに位置を表示します。

反対に「ToggleButtonが押されていない状態（＝Windowモード）」では７４行目が実行され、ボタン表面文字列が「Window」に変わります。その後 If 文を抜け、７６行目で「Date_Updateプロシージャ（＝図４－８）」を呼び出し、「Windowモード」としての計算を行いダイアログに位置を表示します。

尚、７６行目の「Data_Update」プロシージャの呼出しをしないと「ダイアログのボタンを切り替えても表示が変わらない」現象が発生します。これは「ダイアログを移動しないとLayoutイベントが発生しない」→「Data_Update」が実行されない　ためです。

５．標準モジュール（Module１）

サンプルファイルでは、透明ダイアログを試行し易いように「シート上にダイアログ起動用のボタン」を配置しました。
ボタンを押すと図５－１のプロシージャが動作し、モードレスでフォームが起動するようにしてあります。

78. '==========　⇩⑥　シート上のボタンからのフォーム起動　====================
79. Sub start()
80. 　UserForm1.Show 0
81. End Sub

図５－１

実務で使う場合はアドイン登録等をして、どんなファイルにも対応できるように改造して下さい。

６．最後に

今回の「Excelモード」での計測方法は、直接ドキュメント座標で計測しているわけではありません。悪く言えば画面座標上の距離を、最後にドキュメント座標の値に置き換えているだけです。
ですので今回の弱点は「画面分割やウィンドウ枠固定などには対応できない」事です。

これを解決しようとすると、画面分割等のモードや分割位置を検知し、エリアを分けて計算するようなプログラムにする必要があると思います。しかしExcelとしてそこまでの機能が必要なのかは疑問です。
例えばシート上に散らばっている図形の位置を調べようとするなら、シート上の図形を走査して位置を調べる方法があるように、目的を達成するのにはいくつもの方法があるはずです。
「この方法しかない」などと凝り固まらず、頭を柔らかくして他の方法を考えることも重要だと思います。

今回のアプリを通常のExcel作業の中では使うことはあまり無いかもしれませんが、Excel他のアプリを作る際のレイアウト決め等には少しは役に立つのではと思います。


Excel図形等の位置、ディスプレイ上の位置の取得（it-037.xlsm）

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