VBAのFormをExcel中央に配置する

めっちゃ簡単だけど、簡単だからこそやってほしい。
「そんなのいらないでしょ」って思う人はデュアルディスプレイではありませんね？
デュアルディスプレイだと、Formだけが別のディスプレイの端っこに出たりするのです。

Public Sub FormPositionSet(ByRef form As Object)
    form.StartUpPosition = 0
    form.Top = Application.Top + ((Application.Height - form.Height) / 2)
    form.Left = Application.Left + ((Application.Width - form.Width) / 2)
End Sub

これだけ。
Fromの中でMe.StartUpPosition = 0;…とやっていっても良いですが、そうするとForm全部でやらないといけなくなるので、上記のように共通関数にしてしまって、Formの初期化処理あたりで

Call UtilityLayout.FormPositionSet(Me)

すれば良いと思います。

他にもニッチなIT関連要素をまとめていますので、よければ一覧記事もご覧ください。

みにましあ

 

https://minimashia.net/it-tips

2019.12.04

IT tips

ITカテゴリーのページじゃ探しにくい方向けにまとめた記事です。ニッチな情報ばかりなので、需要あるのか疑問だわぁ…。Windowsスリープ中のWindowsパソコンでもUSB充電する方法Windows10（1909）のダウンロードフォルダの表示をもとに戻す自宅勤務でネットワーク設定の切り替えをする 自宅勤務でスピーカー設定の切り替えをするWindows11対応端末かどうか調べるWindows10の大型Update（21H1）に失敗する場合の対処法いまさらWindows7を用意して.NET Framework4.6.2をインストールしてみたWindows11を触ってみた感想@2022年4月同じ...