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関連要素をまとめていますので、よければ一覧記事もご覧ください。

2件のコメント

  1. 突然のご連絡失礼いたします。太陽住宅販売株式会社と申します。
    かねてより貴社のサイトを拝見しておりました。細部まで丁寧に作り込まれたコンテンツ発信に、いつも深い感銘を受けております。
    この度は、良質な情報を発信されている貴社と、ぜひ相互にリンクを設置させていただければと思いご連絡いたしました。
    もちろん費用はいただきません。
    共通の専門性を持つサイト同士でリンクを結ぶことで検索エンジンからの評価向上や、より多くの方に貴社の魅力を知っていただく機会になれば幸いです。
    お忙しいところ恐れ入りますが、もしご興味をお持ちいただけましたら、貴社のリンク掲載をさせていただきますので、
    簡単なご返信をいただけますと幸いです。何卒よろしくお願い申し上げます。
    弊社サイト:https://xn--ihqu4cb7chsajpf7wqkam1o4w7aff3ashew85edjfq50bsxo.com/
    連絡先:backlink@osaka-real-estate-purchase.com
    よくある質問:https://x.gd/BWIgF

    もしお返事いただける際は当社管理番号を削除せずご返信願います。
    管理番号: 109540a8-d0a8-48ba-9dea-80ffa0926bcb

返信を残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)