2021/06/18

シート上の図形の代替テキストを閲覧・編集

• １．背景
• ２．システム概要
• ３．プログラムの流れ
• ４．標準モジュール１(Module1)
• 　４－１．変数宣言、外部プロシージャ参照宣言など
• 　４－２．システムON-OFFダイアログの表示プロシージャ
• 　４－３．マウスと図形等の位置関係チェック
• 　　よりみち（PointsToScreenPixelsX/Yの引数の単位）
• 　　よりみち（ポイント⇔ピクセル変換の係数）
• ５．標準モジュール２(Module2)
• 　５－１．定数宣言とAPI宣言
• 　５－２．dpiを取得する関数
• ６．ユーザーフォーム１(UserForm1)
• 　６－１．フォーム上のコントロールの配置
• 　６－２．フォームモジュール
• 　　６－２－１．フォーム起動時設定
• 　　６－２－２．トグルボタン操作時
• 　　６－２－３．終了ボタン操作時
• ７．ユーザーフォーム２(UserForm2)
• 　７－１．フォーム上のコントロールの配置
• 　７－２．フォームモジュール
• 　　７－２－１．標準モジュールからの呼び出されるプロシージャ
• 　　７－２－２．ボタンの操作
• 　　７－２－３．フォーム位置の把握
• ８．アドインとしてExcelにマクロを登録
• ９．最後に

１．背景

ワークシート上に配置した図形（シェイプ）には、図２－１のように「代替テキスト」を設定することが可能です。今までも、その機能を使ったシステム（例えば「両矢印線の図形を日程線としてセル上に描画」）を考案したことはありました。しかし今回は、文字通り「図形に説明文を付ける」または「図形の説明文を見る」というシステムを考えましたので、紹介します。

用途として頭に思い描いているのは、
　・日程表（図罫線や箱型矢印を使って日程線を引くもの）の、日程線そのものに「業務結果や問題点」などを記入
　・写真などをシートに貼り付け、その情報をテキストとして写真内に保存・閲覧
のようなものです。もっと面白い使い方もあるだろうと思います。

２．システム概要

図２－１のように、シート上に配置した図形の書式設定の１つに「代替テキスト」と言うのがあります。もともとは「作成した図表・画像・その他のオブジェクト内の情報をテキストで表した代替情報」で、「オブジェクトを見たり理解するのが困難な視覚障碍や認識障碍のある方に」対して読み上げる機能のあるアプリもあるようです。

図２－１

テキストとしての制限については、どこにも記述が見当たりませんでしたが、ある程度の文字数（試したところ、全角10.000文字は入りました）は保存できそうです。
今回システムでは、この「代替テキストの説明」部分を利用しています。

まず、アドイン等からシステムを起動すると、図２－２のような「システムON-OFF」用のダイアログが画面左上角に表示されます。

図２－２

「システムON-OFF」ダイアログの「停止中」というトグルボタンをクリックすると「起動中」に変わり、システムが起動状態になります。その状態でマウスをシート上の図形の上に重ねると、図２－３のように「新たなダイアログ（UserForm2）」が表示されます。

図２－３

新たなダイアログにはテキストボックスがあり、そこに図形が持つ「代替テキスト」の文字列が表示されます。
なお、マウスが図形（及び表示されたダイアログの範囲）から外れれば、図２－４のように表示されていたダイアログは自動的に消えます。

図２－４

また、表示されたダイアログ内のテキストボックスを編集し、図２－５のように「保存」ボタンをクリックすれば、編集した内容が図形の代替テキストとして保存されます。

図２－５

なお、図形または表示ダイアログからマウスが外れてしまうと表示ダイアログが消えてしまいますので、「編集した後、保存ボタンをクリック」するには少しコツが必要かもしれません。
また図形が重なっている場合は、狙った図形とは異なる図形の代替テキストがダイアログに表示される場合があります。理由は、シート内の図形をFor Each～Nextで次々に確認し、マウスの位置と丁度タイミングが合致した図形に対して反応させるようにしている為です。

なおシステムの起動を中断するには、左上ダイアログの「起動中」ボタンをクリックし、「停止中」の状態にします。またシステムを終了するには「終了」ボタンをクリックすることで、左上ダイアログは消去します。
再度システムを起動させるには、アドインボタン等をクリックする必要があります。

３．プログラムの流れ

システム起動中は図３－１の一番左側のように、Do～Loop と For Each～Next で「シート上の全ての図形の位置とマウスの位置が重なっているか否か」を常時調べています。そして、重なっている（＝図形の上にマウスが乗る）と判断されるとフォーム（今回はUserForm2）を起動すると共に、図３－１の一番右側のループに移動します。そのループでは「重なった図形のみにFocus」を当てた状態で、「マウスが図形及び起動したダイアログ上に居るか」をDo～Loopで確認し続けます。

図３－１

起動したダイアログでは、Focusした図形の代替テキストをフォーム上のTextBoxに書き込みます。またユーザーがダイアログを移動することも考えられるため、移動した際（Layoutイベントを使用）にはその新しいダイアログ位置をマウスとの重なり確認のDo～Loopに情報提供します。
また、ユーザーがダイアログ内TextBoxを編集し「保存」ボタンをクリックした際には、TextBoxの内容を図形の代替テキストに書き込みます。

Focusした図形及びダイアログからマウスが外れると、制御は図３－１の右側から左側へ戻されると同時に、ダイアログを削除します。

４．標準モジュール１(Module1)

標準モジュールは、２つに分けてあります。Module1には「システムの起動」及び「図形・ダイアログの位置とマウスの位置の関係」を調べ、「代替テキストを表示するダイアログを起動・削除」するメインプログラムを置いています。
Module2には「ディスプレイ拡大率」を取得するコードを別置きしています。

４－１．変数宣言、外部プロシージャ参照宣言など

Module1の宣言部では、システム内で共通使用する変数の宣言、及び外部プロシージャ（マウスの位置取得）参照宣言を行っています。

1. '==========　⇩(1)　変数宣言、外部プロシージャ参照宣言など　============
2. Public UFleft As Long 　　　　　　 '←UserForm2の左端位置（ピクセル）
3. Public UFtop As Long 　　　　　　 '←UserForm2の上端位置（ピクセル）
4. Public UFright As Long 　　　　　 '←UserForm2の右端位置（ピクセル）
5. Public UFbottom As Long 　　　　 '←UserForm2の下端位置（ピクセル）
7. Public WinScreenRatio As Double 　 '←ディスプレイ拡大率
8. Public SystemStop As Boolean 　　 '←システムをStopさせるフラグ
10. Private Type POINTAPI 　　　　　　 '←マウスの位置の構造体
11. 　X As Long
12. 　Y As Long
13. End Type
15. Declare Function GetCursorPos Lib "user32" (IpPoint As POINTAPI) As Long

図４－１

２～５行目の変数は、図形の代替テキスト内容を表示するダイアログ（UserForm2）の位置を入れる変数です。位置は図４－２のように、ダイアログのディスプレイ原点からの距離をピクセル単位で入力します。
この変数に値を入れる工程は、UserForm2の中の「Layoutイベント」プロシージャと「Terminateイベント」プロシージャ（図７－５）です。

図４－２

位置関係は通常「Left・Top・Width・Height」で表しますが、今回は「マウスの位置が図形やダイアログの上に重なっているか」がメインですので、数式を簡単にするために「Left・Top・Right・Bottom」で表すことにしました。

また、マウス・図形・ダイアログの「座標系や単位」は、図４－３のようにバラバラです。スクリーン座標⇔ドキュメント座標の変換、またピクセル⇔ポイントの変換はもちろん可能ですが、「スクリーン座標 × 単位ピクセル」に統一する事で「マウスの位置は計算不要」となります。別な言い方をすれば「図形とダイアログの計算式に集中できる」ことになります。

	座標系	単位
マウス	スクリーン座標	ピクセル
図形	ドキュメント座標	ポイント
フォーム位置	スクリーン座標	ポイント

図４－３

７行目の「WinScreenRatio」は、ディスプレイ拡大率です。手動では図４－４のように、Windowsの設定→システム→ディスプレイ→拡大縮小とレイアウト　から設定できます（選択出来る種類は機種によります）。

図４－４

この拡大率をVBAで取得するには、まずはModule2のようなWindowsAPIを使って「ディスプレイ拡大率込み」の「dpi（dots per inch：1インチの幅の中にどれだけのドットを表現できるか」を取得し、その値を標準値の96で割る事で「ディスプレイ拡大率」を計算します。今回はこの割り算の結果を変数WinScreenRatioに代入（図４－８の３４行目）しています。

８行目の「SystemStop」は、処理を途中で停止させるためのフラグです。今回システムでは、マウスと図形・ダイアログの重なりをDo～Loopで常に監視していますので、そのDo～Loopの脱出条件の１つにSystemStopフラグを加え、フラグがON（True）になった時にDo～Loopを抜け出す（＝システム中断）ようにしています。

１０～１３行目の「POINTAPI」は、マウス位置座標用の構造体を宣言しています。１５行目の「GetCursorPos」では、マウス位置に相当するスクリーン座標を出力してきますので、それを受け取る箱の役目をします。
１１行目の「X」、１２行目の「Y」は、図４－５のような方向になります。

図４－５

１５行目の「Declare Function GetCursorPos Lib "user32" (IpPoint As POINTAPI) As Long」では、Declare文を使ってWindowsAPIのGetCursorPosを宣言しています。出力先は１０～１３行目で宣言した「POINTAPI」を指定しています。

４－２．システムON-OFFダイアログの表示プロシージャ

システムの準備（システム起動ON-OFFスイッチのダイアログ表示：UserForm1）は、図４－６の「SystemStartプロシージャ」から行います。アドインに登録をした場合の実行マクロは、この「SystemStart」を指定して下さい。

17. '==========　⇩(2)　システムON-OFFダイアログ表示　============
18. Public Sub SystemStart()
19. 　UserForm1.StartUpPosition = 3
20. 　UserForm1.Show 0
21. End Sub

図４－６

１９行目の「UserForm1.StartUpPosition = 3」では、UserForm1の表示位置を「画面の左上角」に指定しています。StartUpPositionには図４－７のように４種類の設定が可能です。
なお、UserForm2（図形の代替テキストを表示・編集するダイアログ）を表示する際（図７－２の１３８行目）は、「Focusした図形の左上角に合わせる」ようにするため、値0を使っています。 ちなみに既定値は「1」のようで、StartUpPositionを指定せずにShowメソッドを実行すると「Excelの中央」に表示されます。

値	説明
0	初期設定値を指定せず(ﾏｸﾛで指定可)
1	UserFormが属する項目(Excelﾄﾞｷｭﾒﾝﾄ)の中央（既定?）
2	画面全体の中央
3	画面の左上隅

図４－７

２０行目の「UserForm1.Show 0」では、モードレス（ダイアログ以外の操作が可能）でUserForm1を表示させています。

４－３．マウスと図形等の位置関係チェック

システムON-OFFダイアログ（UserForm1）上のボタンをクリックして「起動中」にすると、図４－８のSPsearchプロシージャが呼び出されます。

23. '==========　⇩(3)　マウスと図形等の位置関係チェック　============
24. Public Sub SPsearch()
25. 　Dim p As POINTAPI 　　 '←POINTAPI型での変数を宣言
26. 　Dim s As Shape 　　　　　 '←図形1つ1つの変数
27. 　Dim LK As Boolean 　　　 '←ﾏｳｽが重なった図形からFocusを外さない様にするﾌﾗｸﾞ(Lockの意)
29. 　Dim SPleft As Long 　　　 '←図形の左端位置
30. 　Dim SPright As Long 　　　 '←図形の右端位置
31. 　Dim SPtop As Long 　　　　 '←図形の上端位置
32. 　Dim SPbottom As Long 　　 '←図形の下端位置
34. 　WinScreenRatio = LogicalPixcel / 96
36. 　Do
37. 　　For Each s In ActiveSheet.Shapes
39. 　　　Do
41. 　　　　SPleft = ActiveWindow.PointsToScreenPixelsX(0)
42. 　　　　　　　　 + (s.Left / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio
43. 　　　　SPright = ActiveWindow.PointsToScreenPixelsX(0)
44. 　　　　　　　　 + ((s.Left + s.Width) / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio
45. 　　　　SPtop = ActiveWindow.PointsToScreenPixelsY(0)
46. 　　　　　　　　 + (s.Top / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio
47. 　　　　SPbottom = ActiveWindow.PointsToScreenPixelsY(0)
48. 　　　　　　　　 + ((s.Top + s.Height) / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio
50. 　　　　GetCursorPos p
52. 　　　　If (SPleft <= p.X And SPright >= p.X And SPtop <= p.Y And SPbottom >= p.Y) Or _
53. 　　　　　　(UFleft <= p.X And UFright >= p.X And UFtop <= p.Y And UFbottom >= p.Y) Then
54. 　　　　　LK = True
55. 　　　　　Call UserForm2.UFstart(s)
56. 　　　　Else
57. 　　　　　LK = False
58. 　　　　　If UserForm2.Visible = True Then Unload UserForm2
59. 　　　　End If
61. 　　　　DoEvents: DoEvents
62. 　　　Loop While LK = True And SystemStop = False
64. 　　Next s
65. 　　DoEvents: DoEvents
66. 　Loop While SystemStop = False
68. End Sub

図４－８

３４行目の「WinScreenRatio = LogicalPixcel / 96」では、ユーザー定義関数「LogicalPixcel（図５－３）」を呼び出し「ディスプレイ拡大率込みのdpi値」を取得し、それを標準値「96」で割ることで「ディスプレイ拡大率」を算出し、変数WinScreenRatioに代入しています。

３６～６６行目のDo～Loop（外側のDo～Loop）の繰返し条件は６６行目の「Loop While SystemStop = False」ですので、ストップが掛かる（＝フラグSystemStopがTrueになる）まで、マウスの位置と図形の位置とを比較し続けます。
外側Do～Loop内では、３７行目の「For Each s In ActiveSheet.Shapes」で「シート内の図形を１つずつ調査」しています。
プログラムの流れで言うと、図３－１の左側のループになります。

For Each～Nextの内側には、３９～６２行目のDo～Loop（内側のDo～Loop）があります。この繰返し条件は６２行目の「Loop While LK = True And SystemStop = False」で、「フラグLKがTrue」かつ「フラグSystemStopがFalse」です。
この「フラグLK」は、「図形とマウスが重なっている（５２～５３行目のIf文が成立した）」ときにTrueになる（５４行目）ようにしており、また「重なりが外れた（５２～５３行目のIf文が成立しない）」ときにはFalse（５７行目）にしています。

つまり、マウスと図形が重なっていない時は「外側のDo～Loopを回しながらシート内の全ての図形を調べ、内側のDo～Loop内は１回だけ実行」され、マウスと図形が重なっている間は「１つの図形に対して、内側のDo～Loop内だけを実行し続ける」ことになります。
この二重ループのコード構造にすることで、「マウスと図形の重なりを調べるIf文を１つ」にすることが出来、また「１つの図形に対してダイアログを表示している間は、他の図形を調べに行かない（＝ダイアログが開いたり閉じたりしない。テキストの編集が可能）」ことが可能になります。
この内側Do～Loopの部分がプログラムの流れで言うと、図３－１の右側のループになります。

内側のDo～Loop内では、４１～４８行目で「シート上の図形の１つ」である「s」の位置を計算します。位置はダイアログの位置（図４－２）と同様に、図４－９のように「Left・Top・Right・Bottom」で表すことにします。

図４－９


図４－１０

次にその後ろの「+ (s.Left / 0.75)」は、「ドキュメント座標原点から、図形左端までの距離」を表しています。通常図形の位置取得・設定として使用している「s.Left」などは、図４－１１の左側のように「ポイント」単位です。
今回、距離についてはマウス位置の単位である「ピクセル」に合わせていきます。ポイントとピクセルの関係は「72ポイント＝96ピクセル」ですので、ポイント値をその係数「0.75」で割ることでピクセル単位に変換できます（図４－１１の右側）。

図４－１１

よって、図形の左端位置を算出するには「SPleft = ActiveWindow.PointsToScreenPixelsX(0) + (s.Left / 0.75) 」となるのですが、Excelは表示倍率の変更が可能です。図４－１２の左側は100%の表示倍率、右側は50%の表示倍率です。

図４－１２

Excelの表示倍率は「ActiveWindow.Zoom」プロパティで取得できます。100%の時に「100」、50%の時は「50」の値が得られますので、先程のドキュメント座標上の図形のピクセル単位の位置（s.Left / 0.75）に「ActiveWindow.Zoom / 100」を掛ければ良いことになります。

また、図４－４に示したように「ディスプレイ拡大率」もユーザーが設定できる項目です。切り替えると図４－１３のようにディスプレイ上の各アプリのサイズが変わります。ですので、この「ディスプレイ拡大率」も更に掛け合わせることが必要になります。
なお「ディスプレイ拡大率」は、図４－８の３４行目の「WinScreenRatio = LogicalPixcel / 96」で計算済みで、変数WinScreenRatioに代入されています。

図４－１３

これらを全て盛り込むことで、「ディスプレイ拡大率とExcel表示倍率を考慮した図形位置」が求まります。
ちなみに、ドキュメント座標原点の位置である「PointsToScreenPixelsX(0)」「PointsToScreenPixelsY(0)」は、Excel表示倍率やディスプレイ拡大率の変更に合わせた値となっています（言わば、表示倍率・拡大率を含んだ原点）。
ですので「PointsToScreenPixelsX(0)」「PointsToScreenPixelsY(0)」には、表示倍率・拡大率は掛け合わせません。

Left以外の「Top・Right・Bottom」の式も同様の考え方です。なお「Right」は「s.Left + s.Width」、「Bottom」は「s.Top + s.Height」となります。なお、各値とも単位はピクセルです。

例えば４１～４２行目の図形位置の計算式では「ActiveWindow.PointsToScreenPixelsX(0)」を使っています。 この「PointsToScreenPixelsXメソッド（Yについても同様）」について、「Microsoftサイト1」を含む他のサイトでは、「PointsToScreenPixelsXメソッド」のカッコ内（引数）に「変換する横方向の長さをドキュメント座標の左端を基点としたポイント単位の値で指定」する事で、「スクリーン座標のピクセルに変換」するという様に説明しています。 どう読んでも「引数には、ポイント単位で入力」としか思えないのですが、一方で言い訳にも読み取れる説明が「Microsoftサイト2」にあるように、実際には「ドキュメント座標のピクセル単位で入力」する必要があるので注意が必要です。 ですので、例えば今回の４１～４２行目を「SPleft = ActiveWindow.PointsToScreenPixelsX(s.Left * (ActiveWindow.Zoom / 100) * WinScreenRatio)」と記述すると、引数がポイント単位のため、間違った値が返ってくることになります。 正しくは「SPleft = ActiveWindow.PointsToScreenPixelsX(( s.Left/ 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio)」と、「075で割って、ピクセル値に変換」する必要があります。 なお「0ピクセル＝0ポイント」なので、ドキュメント座標の原点は「PointsToScreenPixelsX(0)」で取得できます。どっちだったか自信が無い場合は、まずは「ゼロ」で原点を求めてから「ポイントなのかピクセルなのかを考え」ながら式を立てる方が間違えないかもしれません。

「ポイント⇔ピクセル変換」について、ここで整理しておきまます（以下は、Windowsでの話です）。 ここまで、ポイントをピクセルに変換するには「0.75で割る」と説明してきましたが、この変換係数は以下の関係から導いています。 　１ピクセル＝１／９６インチ 　１ポイント＝１／７２インチ ７２／９６ ＝ ３／４ ＝ ０．７５　というのが変換係数です。 まず「ピクセル」の方を詳しく見ていきます。ピクセルは「ディスプレイのドット」で、１インチ当たりのドット数を「dpi（dot per inch）」として表します。上の式は「96ドット／インチ」という事を示していることになります。 この値は画面の寸法と画面の解像度から測定出来ますので、試しに私のノートPCで測ってみると、図４－１４のように「約148dpi」となります。 図４－１４ そう「ディスプレイは、９６dpiでは無い」のです（96dpiのディスプレイも存在するとは思います）。 では「１ピクセル＝１／９６インチ」とは何かと言うと、正確には「96ドットを論理インチとする」と言うことなのです。この背景としては、世の中の様々な大きさのディスプレイに対応するためには、このような論理値として扱うしかなかった　ようです。 次に「ポイント」です。ポイントは元々は印刷の世界の単位で、文字の大きさを表します。コンピュータで文字サイズを扱う時も、それを踏襲し「７２ポイント＝１インチ」と言う基準にしました。 では、実際のディスプレイで考えてみます。ディスプレイは「ドット」がたくさん並んで構成されています。そのドットは物理的なものなので、大きくしたり小さくしたりは出来ません。 上記の「96ドット＝論理インチ」を表現してみると、図４－１５の左側のようになります。96ドットで１論理インチであり、また文字の大きさは「72ポイントで１インチ」なので、「７２ポイント＝９６ドット（ピクセル）」となります。 図４－１５ しかしここで困ったことが起こります。技術が進み、ドットの大きさを小さくした「高解像度のディスプレイ」が出てくると、ドットの密度は高くなるので画質は綺麗になりますが、逆に「文字がどんどん小さく」なってしまうのです。 これでは困るので「１論理インチ当たりのドット数を上げる」機能が必要になってきます。これが「ディスプレイ拡大率」です。 図４－１５の右側が例えばディスプレイ拡大率を150%にした時で、１論理インチ当たりのドット数は144（96dpi × 1.5 = 144dpi）になり、表示される文字も、100%拡大率の時と比べて1.5倍になる　ことになります。 ということで「ポイントをピクセルに変換するには『0.75で割る』」というのは「ディスプレイ拡大率が100%の時」のことで、ディスプレイ拡大率が異なる時には「0.75で割り、ディスプレイ拡大率を掛ける」必要があります。なお、直接的に「DPI値／72 を乗ずる」でも良いです。 今回Module2の関数LogicalPixcelは、ディスプレイ拡大率を含んだ「DPI値」を取得するプロシージャです。

図形の位置が把握できたら、次に５０行目の「GetCursorPos p」で「この時点でのマウス位置」を取得し、変数pに代入します。変数pはPOINTAPIの構造ですので、X方向の位置は「p.X」、Y方向の位置は「p.Y」で取得できることになります。単位はピクセルです。

ここまでで「図形の位置」と「マウスの位置」がピクセル単位で取得できましたので、重なっているか否かを５２～５３行目のIf文で確認します。If文は「If (SPleft <= p.X And SPright >= p.X And SPtop <= p.Y And SPbottom >= p.Y) Or (UFleft <= p.X And UFright >= p.X And UFtop <= p.Y And UFbottom >= p.Y) Then」となっており、２つの条件式がOrで繋がっています。

1つ目の条件式は「SPleft <= p.X And SPright >= p.X And SPtop <= p.Y And SPbottom >= p.Y」です。これを図で表せば図４－１６のようになり、４つの不等号が全て成立すれば「図形とマウスが重なっている」ことになります。

図４－１６

２つ目の条件式は「UFleft <= p.X And UFright >= p.X And UFtop <= p.Y And UFbottom >= p.Y」です。この条件式の意味は、図４－１７のように「起動したダイアログとマウスが重なっているか」を確認しています。
ここで使っている「UFleft、UFright、UFtop、UFbottom」はUserForm2の位置を表すもので、UserForm2が起動した後のLayoutイベント（図７－５）で計算されるものです。

図４－１７

なお、ダイアログが起動する前（及び、ダイアログが消えた後）の状態では、ダイアログの位置を表す変数「UFleft・UFright・UFtop・UFbottom」は「全て初期値のゼロ」になってます。ですので、
　・図形にマウスを近づけ、重なった時に反応しているのは１つ目の条件式で位置確認
　・起動したダイアログの位置を変数「UFleft・UFright・UFtop・UFbottom」に代入
　・ダイアログが表示された後は、１つ目と２つ目の条件式で位置確認
という順序で動いていることになります。

ここで注意しなければいけないのは、ダイアログを表示させる位置です。
最初に反応するのは「マウスが図形に重なった時」ですから、もし図４－１８のように図形と離れた場所にダイアログを表示させた場合、「ダイアログを操作しようとしてマウスをダイアログの方に動かす」と、結果的に１つ目２つ目のどちらの条件式も満たさない場所をマウスが通過してしまいIF文が成立せず、ダイアログが消えてしまうことになります。

図４－１８

ですので「ダイアログの表示位置は図形と重なっていること」が重要で、図７－２でUserForm2を表示させる際は「図形の位置を考えてダイアログを表示」させることが必要になります。

５２～５３行目のIf文で「図形とマウスが重なっている」または「起動したダイアログとマウスが重なっている」時に、５４～５５行目を実行します。

５４行目の「LK = True」はフラグLKをTrueにします。内側Do～Loop（３９～６２行目）の繰り返し条件条件は「While LK = True And SystemStop = False」ですので、LK = True になることで（SystemStopフラグは、システムを中断しない限りFalseのため）内側Do～Loopを抜け出せず、同じ図形だけをチェックするようになります。図３－１で言うと左側のDo～Loopから右側のDo～Loopに移動することになります。

５５行目の「Call UserForm2.UFstart(s)」では、代替テキストを表示編集するダイアログ（UserForm2）を起動します。但し「UserForm2.Show 0」のように直接起動するのではなく、UserForm2のフォームモジュール上にある「UFstart」プロシージャを呼び出す形にしています。理由は「ダイアログの表示位置を図形と重なった位置にする」ことを目的に、マウスと重なった図形を表す「s」を引数としてフォーム側に渡すためです。フォーム側では受け取った図形「s」の位置を元にして、フォームを表示する位置を決めています。

内側Do～Loopは、常にマウスの位置と図形・ダイアログの位置を確認しています。マウスと重なっている間は、常に５４～５５行目を実行し続けることになります。５４行目の「LK = True」は、フラグLKにTrue値を入れ続けていますし、５５行目の「Call UserForm2.UFstart(s)」も「同じフォームを何度も起動させよう」としています。
フラグLKに同じ値を入れ続けるのは問題無い（これも無駄と言えば無駄ですが）のですが、フォームを起動させ続けてしまうと「TextBoxの編集が出来ない」問題が発生しますので、フォーム側で「フォームが起動している間は、無視する」処理（図７－２の１２７行目）をしています。

内側Do～Loopが回り続けている途中で、もしマウスの位置が図形とダイアログの両方を外れた時には、５７～５８行目を実行することになります。まず５７行目の「LK = False」では、内側Do～Loopを抜け出すようにフラグLKにFalse値を入れています。このコードにより、処理は内側Do～Loopから外側Do～Loopに移動（図３－１で言うと、左側のDo～Loopへ移動）することになります。

また５８行目の「If UserForm2.Visible = True Then Unload UserForm2」で、表示していたダイアログを消去します。
ここで「If UserForm2.Visible = True Then」というIf文を付けていることについて説明します。
まず、IF文を付けていない場合は、マウスが図形に重なっていない状態の時には連続してUserForm2をUnloadしてしまいます。起動していないフォームをUnloadしても外観上は何も起きないのですが、Unloadするたびに「起動していないUserForm2の『UserForm_Terminate』イベントを実行」してしまいます。
今回、UserForm2の「UserForm_Terminate」イベントプロシージャ（図７－５）では、フォーム位置を表す変数を初期化（＝フォームを消えた事にする）する作業しかしていないので「外観は何も起きない」ことになるのですが、無駄な動作のため「If UserForm2.Visible = True Then」を付けて、必要な時だけUnloadさせています。

次に、IF文を付けた時の弊害です。「If UserForm2.Visible = True Then」の部分で、UserForm2が起動しているか否かを確認しています。確認する際には「UserForm2」のInitializeイベント・Layoutイベントを呼び出します。但しDo～Loopは何回も回りますが、マウスが図形に重ならない内は「１回だけ呼び出せば、起動していない事を記憶している」ようです。なお、今回システムではInitializeは無いのでLayoutイベントだけが１回実行されます。
しかし、Layoutイベントを未起動の状態で実行されると、実際にはダイアログが無いのに「ダイアログが画面左上角に存在するかのような値が発生」してしまいます（詳細は、図７－５で説明します）。

ですので今回システムでは、５８行目に「If UserForm2.Visible = True Then」を付けてTerminateイベントを連続実行しないようにすると共に、UserForm2のLayoutイベントにも「未起動時は無視する（図７－５の１５４行目）」コードを入れることで、無駄と誤作動の両方を抑えています。

６６行目の「Loop While SystemStop = False」では、外側のDo～Loopの継続条件を「フラグSystemStop＝False」としています。ON-OFFスイッチ（UserForm1）で停止させた時（フラグSystemStop＝True）に、外側Do～Loopを抜け出し終了します。

５．標準モジュール２(Module2)

図４－８の３４行目から呼び出される関数「LogicalPixcel」に関するコードだけをModule2にまとめています。
このLogicalPixcel関数は「ディスプレイ拡大率込みのdpi値」を戻します。
尚、この関数については他サイトでも色々取り上げられていますので、そちらも参照して頂ければと思います。

５－１．定数宣言とAPI宣言

まず、図５－１では、定数宣言とDeclare文でWindowsAPIの宣言をしています。

70. '==========　⇩(4)　DPI＋ディスプレイ拡大率取得に使用する宣言　============
71. Private Const LOGPIXELSX = 88 　　　 '←画面水平方向のﾋﾟｸｾﾙ数(論理ｲﾝﾁ当たり)
72. Private Const LOGPIXELSY = 90 　　　 '←画面垂直方向のﾋﾟｸｾﾙ数(論理ｲﾝﾁ当たり)
74. Private Declare Function GetDesktopWindow Lib "user32" () As Long
75. Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
76. Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
77. Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

図５－１

７１～７２行目の定数宣言は、何の固有情報を取得するかの設定です。今回は「dpi(dots per inch：1論理インチの幅の中にどれだけのドットを表現できるか)」を求めたいので７１行目のLOGPIXELSX（値88）または７２行目のLOGPIXELSY（値90）を使います。
なお、例えば定数LOGPIXELSXはExcelの定数では無いので、Const LOGPIXELSX = ･･･と定数宣言する必要があります。

ちなみに得られる固有情報は多くあるようで、その一部を図５－２で紹介します。

定数	値	内容
HORZSIZE	4	物理画面の幅(単位mm)
VERTSIZE	6	物理画面の高さ(単位mm)
HORZRES	8	画面の幅(単位ピクセル)
VERTRES	10	画面の高さ(単位ピクセル)
BITSPIXEL	12	プレーン毎のピクセル当たりのカラービットの数
PLANES	14	カラープレーンの数
LOGPIXELSX	88	画面水平方向のピクセル数(論理インチ当たり)
LOGPIXELSY	90	画面水直方向のピクセル数(論理インチ当たり)

図５－２

７４～７７行目は、Declare文でWindowsAPIの宣言をしています。
７４行目の「GetDesktopWindow」は、デスクトップのウィンドウハンドルを取得するものです。
７５行目の「GetDC」は、デバイスコンテキストを取得するものです。
７６行目の「GetDeviceCaps」は、デバイス固有情報を取得するものです。
７７行目の「ReleaseDC」は、デバイスコンテキストを開放するものです。

５－２．dpiを取得する関数

dpiを取得する関数本体が図５－３です。

79. '==========　⇩(5)　dpiを取得する関数　============
80. Public Function LogicalPixcel() As Long
81. 　Dim hWndDesk As Long 　　　 '←デスクトップのウィンドウハンドル
82. 　Dim hDCDesk As Long 　　　 '←デバイスコンテキスト
84. 　hWndDesk = GetDesktopWindow()
85. 　hDCDesk = GetDC(hWndDesk)
87. 　LogicalPixcel = GetDeviceCaps(hDCDesk, LOGPIXELSX)
89. 　Call ReleaseDC(hWndDesk, hDCDesk)
90. End Function

図５－３

８４行目の「hWndDesk = GetDesktopWindow()」で、デスクトップのウィンドウハンドルを取得します。
８５行目の「hDCDesk = GetDC(hWndDesk)」で、デスクトップのデバイスコンテキストを取得します。

８７行目の「LogicalPixcel = GetDeviceCaps(hDCDesk, LOGPIXELSX)」では、デスクトップの「画面水平方向のピクセル数」を取得し、関数LogicalPixcelの戻り値に設定します。
なお、ここでは「画面水平方向（LOGPIXELSX）」を使用していますが、「ディスプレイ拡大率は、水平方向と垂直方向で拡大率が同じ」であるため、「画面垂直方向（LOGPIXELSY）」を指定しても同じ結果が得られます。


図５－４

最後に８９行目の「Call ReleaseDC(hWndDesk, hDCDesk)」で、デスクトップのデバイスコンテキストを解放し、他のアプリケーションから使用できるようにしています。

６．ユーザーフォーム１(UserForm1)

６－１．フォーム上のコントロールの配置

システムのON-OFFを行うフォーム１（UserForm1）上のコントロール類の配置は、図６－１のようにしました。

図６－１

ToggleButtonを１個、CommandButtonを１個　並べて配置しています。ToggleButtonはValue値がTrueかFalseかでボタン形状が変わるため、今回のON-OFFを表すには適していると考えます。ボタン上の文字列はマクロ側から制御しています。
CommandButtonは、起動したこのフォームを終了させるためのボタンです。表面文字列は、配置時に手動でプロパティに書き込んでいます。

６－２．フォームモジュール

６－２－１．フォーム起動時設定

フォーム起動時に実行されるのが、図６－２のInitializeイベントプロシージャです。

92. '==========　⇩(6)　フォーム起動時設定　============
93. Private Sub UserForm_Initialize()
94. 　Me.Caption = "図形コメント"
95. 　Call ToggleButton1_Click
96. End Sub

図６－２

９４行目の「Me.Caption = "図形コメント"」では、ダイアログのタイトル文字列を書き込んでいます。
９５行目の「Call ToggleButton1_Click」は、起動時に図６－３の「ToggleButton1_Clickプロシージャ」を１回呼び出すことで、ToggleButton表面文字列に「停止中」を書き込んでいます。
これはToggleButtonのValue値が既定ではFalseであることを利用し、「Me.ToggleButton1.Caption = "停止中"」という同じコードを重複しないようにしています。

一方、図６－３を呼び出すことで「システム停止フラグSystemStopにTrueを設定」するコードも同時に実行してしまいますが、この段階ではまだ「Do～LoopのSPsearchプロシージャ（図４－８）」を呼び出していませんので、無駄なコードを実行したという事になります。

６－２－２．トグルボタン操作時

トグルボタンをクリックすると、クリックする度に「ボタンが凹状態（Value=True）」と「ボタンが凸状態（Value=False）」を繰り返します。その時に発生するClickイベントプロシージャが図６－３です。

98. '==========　⇩(7)　トグルボタン操作時　============
99. Private Sub ToggleButton1_Click()
101. 　If Me.ToggleButton1.Value = False Then
102. 　　Me.ToggleButton1.Caption = "停止中"
103. 　　SystemStop = True
104. 　Else
105. 　　Me.ToggleButton1.Caption = "起動中"
106. 　　SystemStop = False
107. 　　Call SPsearch
108. 　End If
110. End Sub

図６－３

トグルボタンの形状が変わった後（＝Value値が変更された後）にClickイベントが実行されますので、凹状態→凸状態に変化した後で１０２～１０３行目が実行され、逆に凸状態→凹状態に変化した後で１０５～１０７行目が実行されることになります。

先に「凸状態→凹状態（起動中）」にした時を説明します。
１０５行目の「Me.ToggleButton1.Caption = "起動中"」では、トグルボタンの表面文字列を「起動中」に書き換えます。
１０６行目の「SystemStop = False」では、「システム停止フラグSystemStop」にFalseを設定することで、SPsearchプロシージャ（図４－８）のDo～Loopを止めないようにします。
その上で１０７行目の「Call SPsearch」でSPsearchプロシージャを呼び出すことで、図形とマウスの位置を確認するDo～Loopが回り始めます。

次に「凹状態→凸状態（停止中）」にした時です。
１０２行目の「Me.ToggleButton1.Caption = "停止中"」ではトグルボタンの表面文字列を「停止中」に書き換えます。
次に１０３行目の「SystemStop = True」で、「システム停止フラグSystemStop」にTrueを設定します。トグルボタンを「凹状態→凸状態」にした時点ではSPsearchプロシージャのDo～Loopは回っていますが、このシステム停止フラグSystemStopがTrueになれば図４－８の６２行目・６６行目の脱出条件が成立し、Do～Loopを抜け出し「SPsearchプロシージャが終了する」ことで、システムを停止させています。

６－２－３．終了ボタン操作時

終了ボタンをクリックした時には「CommandButton1_Click」イベントが発生します。また、フォームを閉じる（ダイアログの右上×印をクリック）時には「UserForm_Terminate」が発生します。

112. '==========　⇩(8)　終了ボタン押下時　============
113. Private Sub CommandButton1_Click()
114. 　End
115. End Sub
117. '==========　⇩(9)　フォーム削除時　============
118. Private Sub UserForm_Terminate()
119. 　End
120. End Sub

図６－４

終了ボタンをクリックするのも、ダイアログ右上×印をクリックするのも、ユーザーが「システムを終了したい」時ですから、１１４行目・１１９行目の「Endステートメント」で「マクロを強制的に中止」させています。
なお、１１４行目を「Unload Me」とすることでも同じ結果が得られます。これはダイアログを閉じる時には「Terminate」イベントが発生することから、最終的に１１９行目の「Endステートメント」が実行されるためです。

また、「Endステートメント」では無く「SystemStop = True」と言うコードを実行する方法を考える方も居ると思います。しかし、UserForm2が表示されている時に「SystemStop = True」をすると、内側のDo～Loopは脱出しても、まだFor Eachでのシート内図形検索が終了していない場合には「UserForm2が残留」してしまう場合があります（例：Focusしていた図形とUserForm1、それと他の図形が全て重なっていた場合など）。

その意味では、図６－３の１０３行目の「SystemStop = True」も不十分でUserForm2が残留する可能性がありますが、この場合は「システムを中断しているだけ」であり「次に実行させた時にはUserForm2は消える」ので、許容範囲と考えています。
（また、１０３行目で「End」ステートメントを使うとUserForm1も消えてしまいますので、「停止」という意味とはズレてしまう気がします。）

７．ユーザーフォーム２(UserForm2)

７－１．フォーム上のコントロールの配置

図形とマウス位置が重なった時に表示されるのが、「図形の代替テキストを表示・編集」するフォーム２（UserForm1）です。そのフォーム上のコントロール類の配置は、図７－１のようにしました。

図７－１

TextBoxを１個、CommadnButtonを２個配置しています。TextBoxは図形の代替テキストを表示させ、且つ編集もさせる場所です。CommandButtonの１つ目は「編集したものを保存」するためのボタンです。
もう１つのCommandButtonは「編集をキャンセルさせる」役目と「表示されたダイアログを消去する」役目を持たせたつもりですが、マウスを図形・ダイアログから外してしまえば両方の役目は達せられるので、あまり意味の無いボタンかもしれません。

２つのCommandButtonの表面の文字列は、配置時にプロパティを変更して記述してます。

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

７－２－１．標準モジュールからの呼び出されるプロシージャ

図４－８の５５行目から呼び出される「UFstart」が図７－２です。引数として「マウスの位置と重なった図形」である「s（Shapeオブジェクト）」を受け取ります。

122. '==========　⇩(10)　モジュール内変数の宣言　============
123. Dim Sp As Shape 　　　 '←マウスの位置と重なった図形オブジェクト
125. '==========　⇩(11)　フォーム起動プロシージャ　============
126. Sub UFstart(s As Shape)
127. 　If Me.Visible = True Then Exit Sub
129. 　Set Sp = s
130. 　Me.TextBox1.Value = Sp.AlternativeText
132. 　Me.StartUpPosition = 0
133. 　Me.Left = ActiveWindow.PointsToScreenPixelsX(0) * 0.75 / WinScreenRatio _
134. 　　　　　　+ Sp.Left * (ActiveWindow.Zoom / 100)
135. 　Me.Top = ActiveWindow.PointsToScreenPixelsY(0) * 0.75 / WinScreenRatio _
136. 　　　　　　+ Sp.Top * (ActiveWindow.Zoom / 100)
138. 　Me.Show 0
139. End Sub

図７－２

１２３行目の「Dim Sp As Shape」は、モジュールレベルの変数宣言です。呼び出された「UFstartプロシージャの引数」として受け取った図形オブジェクト「s」を「UserForm2モジュール内で『Sp』として共有」するためのものです。
そのために１２９行目の「Set Sp = s」で、引数として得た「s」を引数「Sp」に代入しています。

それより１つ前の１２７行目の「If Me.Visible = True Then Exit Sub」は、「ダイアログが立ち上がっている時は、スルーさせる」という意味です。
図４－８の５５行目の「Call UserForm2.UFstart(s)」は、マウスと図形が重なっている間ずっと実行され、その都度UFstartプロシージャが呼び出されるわけですが、１２７行目のコードにより「フォームを起動させ続け無い」ようにし、「TextBoxの編集が出来る」ようにしています。

１３２行目の「Me.StartUpPosition = 0」は、フォームの表示位置を指定するものです。図４－７の表で示した通り、「ゼロ」の指定は「表示位置は手動（マクロ）で設定」するという意味になります。設定する値は、フォームの位置「Left値」「Top値」ですので、図４－３で示した通り、ポイント単位で且つスクリーン座標で指定することになります。

まず、どこにダイアログをどこに表示すれば良いか　ですが、図４－１８のように「図形とダイアログが離れている」と、「図形からダイアログにマウスが移動している最中に、図形からもダイアログからも外れてしまう」ことになります。ですので図形に対してダイアログは重ねる必要がありますが、その重ね方は図７－３の４通りくらいだと思います。

図７－３

図形の左側や上側にダイアログを置くバージョンが無いのは、指示するポイント数がマイナスになった時の計算が面倒だからです。（マイナス値を設定してもエラーは出ませんが、画面から外れてしまうので、見えなくなったり操作できなくなったりします。）
図形が小さな場合も考えられますので、今回は①の「図形の左上角とフォームの左上角を合わせる（＝完全に重ねる）」方法にしました。

図形の位置は、図４－８の４１～４２行目（Left方向）、４５～４６行目（Top方向）で計算しています。但しこの時の単位は「ピクセル」にしていますので、フォーム位置用の「ポイント」に変換する必要があります。
「よりみち」でも説明したように、ピクセルをポイントに変換するには「0.75を掛け、ディスプレイ拡大率で割る（ポイント→ピクセル変換の時に対して逆）」ことで値が得られます。

まず図形のLeft方向の式は「SPleft = ActiveWindow.PointsToScreenPixelsX(0) + (s.Left / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio」です。これに「0.75 / WinScreenRatio」を掛ければ良いわけです。
すると、１３３～１３４行目のように、
「ActiveWindow.PointsToScreenPixelsX(0) * 0.75 / WinScreenRatio + Sp.Left * (ActiveWindow.Zoom / 100)」
となり、これをUserForm2のLeft値として指定します。

また図形のTop方向の式「SPtop = ActiveWindow.PointsToScreenPixelsY(0) + (s.Top / 0.75) * (ActiveWindow.Zoom / 100) * WinScreenRatio」に対しても「0.75 / WinScreenRatio」を掛ければ、１３５～１３６行目のように、
「ActiveWindow.PointsToScreenPixelsY(0) * 0.75 / WinScreenRatio + Sp.Top * (ActiveWindow.Zoom / 100)」
となり、これをUserForm2のTop値として指定します。

似たような計算式を書きたく無いのであれば、図４－８の変数SPleft・変数SPtopを引数や共有変数にしておくなどの方法で、UserForm2へ渡し、その変数を加工する　という手法も考えられます。

フォームを表示する位置が決まったら、１３８行目の「Me.Show 0」で、モードレスで表示します。

７－２－２．ボタンの操作

UserForm2のダイアログ上には、「保存」と「キャンセル」のボタンを配置しています。
「保存」ボタンの役目は、「編集されたTextBoxの文字列を、図形の代替テキストに保存」するものです。もし編集していなくても、保存ボタンをクリックすれば、代替テキストが上書きされます。
「キャンセル」ボタンは、「編集を保存せずに閉じる」役目と、「ダイアログを消去する」役目がありますが、マウスを図形・ダイアログから外せば自動的に「（もしTextBoxが編集されていても保存せずに）閉じる」ので、あまり意味はないかもしれません。

141. '==========　⇩(12)　保存ボタンの処理　============
142. Private Sub CommandButton1_Click()
143. 　Sp.AlternativeText = Me.TextBox1.Value
144. 　Unload Me
145. End Sub
147. '==========　⇩(13)　キャンセルボタンの処理　============
148. Private Sub CommandButton2_Click()
149. 　Unload Me
150. End Sub

図７－４

「保存ボタン」をクリックした時に実行されるのが１４２～１４５行目のClickイベントです。
１４３行目の「Sp.AlternativeText = Me.TextBox1.Value」で、TextBoxの内容をFocusしている図形の代替テキスト（AlternativeText）に代入します。代入した後は１４４行目の「Unload Me」で、ダイアログを閉じます。
編集した内容が正しく保存されているかは、図形から一度マウスを外し、再度Focusを当てることで確認できます。なお、ボタンをクリックしたマウスの位置が「Focusしている図形に重なってる」場合は、一旦ダイアログが消えてから再度ダイアログが自動的に起動します。

「キャンセルボタン」をクリックした時は、１４８～１５０行目のClickイベントが実行されます。
１４９行目の「Unload Me」で、単純にダイアログを閉じます。但し「保存ボタン」の時と同様に、ボタンをクリックしたマウスの位置が「Focusしている図形に重なってる」場合は、一旦ダイアログが消えてから再度ダイアログが自動的に起動します。

ちなみに、ダイアログの右上×印をクリックすると「Unload Me」を実行したのと同じことになりますので、今回特にイベントを使っての処理はしていません。

７－２－３．フォーム位置の把握

フォームが起動する時には、「Initialize」→「Layout」→「Activate」という順序でイベントが発生し、ダイアログとして表示されます。また、ダイアログを移動すると「Layout」イベントが発生します。
ダイアログを閉じる時には、まず「QueryClose」イベントが発生し、そのあとダイアログが消えてから「Terminate」イベントが発生します。

ダイアログが起動している間は「ダイアログの位置・サイズの情報」を図４－８の内側Do～LoopのIF文に渡して、そのダイアログの上でマウス操作が出来るようにする必要があります。起動直後及び移動時の両方でLayoutイベントが発生しますので、「ダイアログ表示中の位置・サイズ情報」はLayoutイベント（図７－５の１５３～１６０行目）で作成することにしました。

また、ダイアログが消えた後は、図４－８の外側Do～LoopのIF文で「図形だけに反応」させる必要があるので、ダイアログ位置・サイズ情報は「全て初期値（全てゼロ）」にする必要があります。この処理は、「QueryClose」「Terminate」どちらのイベントでもOKなのですが、「ダイアログが消去された後」の処理のため「Terminate」イベント（図７－５の１６３～１６８行目）の方が正しいと考えました。

152. '==========　⇩(14)　フォーム位置の把握　============
153. Private Sub UserForm_Layout()
154. 　If Me.Visible = False Then Exit Sub
156. 　UFleft = Me.Left / 0.75 * WinScreenRatio
157. 　UFtop = Me.Top / 0.75 * WinScreenRatio
158. 　UFright = (Me.Left + Me.Width) / 0.75 * WinScreenRatio
159. 　UFbottom = (Me.Top + Me.Height) / 0.75 * WinScreenRatio
160. End Sub
162. '==========　⇩(15)　フォーム位置の消去============
163. Private Sub UserForm_Terminate()
164. 　UFleft = 0
165. 　UFtop = 0
166. 　UFright = 0
167. 　UFbottom = 0
168. End Sub

図７－５

先に１５６～１５９行目を説明します。１５６～１５９行目は、起動しているダイアログの位置を変数に代入して図４－８のIF文に渡しています。
ここでUserForm2の位置「Me.Leftなど」の単位は「ポイント」ですが、図４－８のIF文は「ピクセル」で統一しているため、ポイント単位の位置をピクセルに変換する必要があります。
ポイントをピクセルに変換するには、「よりみち」でも説明したように、「0.75で割り、ディスプレイ拡大率を掛ける」ことで値が得られますので、例えばLeft方向は１５６行目のように「UFleft = Me.Left / 0.75 * WinScreenRatio」とします。
他のTop・Right・Bottomについても同じ方法で式を立てます。

戻って１５４行目の「If Me.Visible = False Then Exit Sub」は、「ダイアログが起動していない時は、スルーする」という意味です。一見、意味の無いコードに思えますが、意外な現象でこのLayoutイベントが発生してしまうことが分かりました。

UserForm1を起動し、トグルボタンをクリックして「起動中」にすると、図４－８の外側Do～Loopが回り始めます。起動直後はマウスは図形から外れているのが普通なので、図４－８の５２～５３行目のIF文は成立せず５８行目の「If UserForm2.Visible = True Then Unload UserForm2」を実行します。
この段階ではUserForm2は起動してませんので、素直に次の行にコードは移るはずと思っていたのですが、「UserForm2が起動しているか否か」を確認するためにUserForm2の「Initializeイベント」→「Layoutイベント」を動かしているようです。
今回は「Initialize」が無いので、「Layoutイベント」だけを動かすのですが、もし１５４行目の「If Me.Visible = False Then Exit Sub」が無いと、１５６～１５９行目を実行することになります。

１５６～１５７行目のUFLeft・UFTopは、UserForm2が起動していないので両方とも値がゼロになるのですが、フォームの幅（Width）と高さ（Height）は実在しますので、図７－６の②ように１５８～１５９行目のUFRight・UFBottomには値が入ってしまいます。

図７－６

UFRight・UFBottomに値が入ってしまうと、図４－８の５２～５３行目のIF文は「UserForm2が画面左上角に存在しているかのような状態」になってしまいます（図７－７）。

図７－７

その時マウスは、まだ画面左上に存在しますので、５２～５３行目のIF文は成立してしまうため、図４－８の５５行目の「Call UserForm2.UFstart(s)」が実行され、「図形とマウスが重なっていない」のに図７－８のように「ダイアログが表示」されてしまいます。

図７－８

しかしUserForm2が起動してみると、その位置は図形の場所にある（画面左上角では無い）ので「マウスが図形・ダイアログから外れている」と判断され、ダイアログは削除されます。

このように、図７－６の「②→①→③→②→①→③→・・・」と繰り返してしまうことで、マウスが左上角にある限りは「各図形のダイアログが現れたり消えたり」チラチラする現象が発生します。
この対策が１５４行目の「If Me.Visible = False Then Exit Sub」で、悪循環を最初で断ち切ることでチラチラを防止できます。

フォームが消えた時には、図４－８のIF文からダイアログ分を差し引くために、１６４～１６７行目のようにLeft・Top・Right・Bottomの値にゼロを代入します。

８．アドインとしてExcelにマクロを登録

このマクロをExcelのアドインに登録することで、どのブックでも「図形のコメント閲覧編集」を使用することが出来ます。アドイン方法については「年賀状リスト等の宛名検索と追記　アドイン登録」を参照下さい。
またアドイン登録した際の実行マクロは、図４－６の「SystemStartプロシージャ」にして下さい。

９．最後に

今回システムはコードの行数はそれほど多く無い割りに、シート上の図形の位置・ディスプレイ上のマウスの位置とフォームの位置を同じ指標で統一して計算させるのは結構面倒でした。
また、今までの回ではあまり気にしていなかった「ディスプレイの倍率」について今回考慮したのは、作っている途中のExcelファイルを自分の周りのいくつかのPCで試してみたところ、思い通りに動かないPCがあることに気が付いたからです。ご想像の通り「ディスプレイ拡大率が100%以外」に設定されていたからです。
ディスプレイ拡大率の存在は知っていたのですが「普通のPCは100%だろう」と高をくくっていたのが間違いの元でした。

また今回は、Excelの便利な機能である「ウィンドウ枠の固定」や「ウィンドウの分割」には対応できていません。これに対応するには、あまりに面倒が多い気がしますし、また他サイトを見てもあまり扱っていないようです。その内トライしたい課題ではあります。


シート上の図形の代替テキストを閲覧・編集（it-060.xlsm）

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