(Office VBA) マルチディスプレイ環境でユーザーフォームを親ウィンドウの中央に表示する(2) 決定版

前回は、処理の流れを追いました。今回は実際どこにどのように記述すれば良いかを説明します。 実はこれまで自分で表示させるときには呼び出し元のSubプロシージャの方に記述していました。しかしそれだといちいち同じコードを記述しなくてはならず、元のSubプロシージャが乱雑になってしまいます。またUF名を引数にした汎用のFunctionプロシージャ化もまだうまくいってません。ところが、実はもっと簡単な方法があったのです。それは……ユーザーフォームそのものに記述することです。 ユーザーフォームのコードに記述する 中央表示設定用のSubプロシージャ Private Sub UFPositionCenter(…

(Office VBA) マルチディスプレイ環境でユーザーフォームを親ウィンドウの中央に表示する(1)

マルチディスプレイ環境(マルチモニタ環境)で、ユーザーフォームを使ったマクロを表示させると、現在ブックを表示させているディスプレイとは別のディスプレイにフォームが表示されてしまうことがあります。これを防ぎ、現在開いているブックの中央付近に表示させる方法を紹介します。 処理の流れ 流れとしては以下のようになります。 親ウィンドウ(ブック)の表示座標とサイズを取得する ユーザーフォームをロードする（表示はまだ） ユーザーフォームのサイズを取得する ユーザーフォームの表示位置を計算する 位置を指定してユーザーフォームを表示する 親ウィンドウの表示座標とサイズを取得する WindowsオブジェクトのT…