エクセルVBAのユーザーフォーム表示位置を任意の場所に変更する方法

オリジナルの入力フォームを作ったのに、シート上の文字やセルの上に表示されているので位置を変えたいと思ったことありませんか？

初期設定の画面中央から好きな位置にプロパティを使って設定する方法をご紹介します。

StartUpPositionプロパティ

ユーザーフォームの表示初期設定は、画面中央に表示されるように設定されていますので、表示位置を変更したいユーザーフォームのプロパティから設定可能です。

まず、VBAProjectの中から表示位置を変更したいUserFormを選びます。

上の図ではUserForm1をクリックして表示してあります。

そして、ユーザーフォーム自体をクリックすると、プロパティが表示されますので、プロパティ内の「StartUpPosition」の設定値を変更するだけです。

設定方法

StartUpPositionの設定方法は簡単で、StartUpPositionの文字自体をクリックすると、右側に設定値0～３が選択できるようになります。

初期設定値は「１」です。

• 「０」手動
• 「１」エクセル画面中央
• 「２」ディスプレイ画面中央
• 「３」画面の左上

手動を選択したら、表示させる高さや横位置も自由に設定することができるので、この手動を選択することがほとんどです。

手動でユーザーフォームの表示位置を自由に設定

手動を選んだら高さと位置を設定しましょう。

これにより、自由にユーザーフォームを表示する位置を自分で決めることができ、ユーザーフォームごとに指定できるのでとても重宝しています。

表示高さの設定

StartUpPositionの2つ下の項目「Top」で表示高さの位置を指定できます。

「０」で入力すると画面の一番上に表示されます。また、画面サイズによりますが、200ぐらいで中央付近ですね。

表示横位置の設定

StartUpPositionの15個上の項目「Left」で左からの位置を指定できます。

「０」で入力すると画面の一番左端に表示されます。同じく画面サイズによりますが、350ぐらいが中央付近ですね。

波乗りアヒル

ここでは複雑なVBAでやらなくても、プロパティで簡単に設定できますよ。

関連記事