オリジナルの入力フォームを作ったのに、シート上の文字やセルの上に表示されているので位置を変えたいと思ったことありませんか?
初期設定の画面中央から好きな位置にプロパティを使って設定する方法をご紹介します。
StartUpPositionプロパティ
ユーザーフォームの表示初期設定は、画面中央に表示されるように設定されていますので、表示位置を変更したいユーザーフォームのプロパティから設定可能です。
まず、VBAProjectの中から表示位置を変更したいUserFormを選びます。
上の図ではUserForm1をクリックして表示してあります。
そして、ユーザーフォーム自体をクリックすると、プロパティが表示されますので、プロパティ内の「StartUpPosition」の設定値を変更するだけです。
設定方法
StartUpPositionの設定方法は簡単で、StartUpPositionの文字自体をクリックすると、右側に設定値0~3が選択できるようになります。
初期設定値は「1」です。
- 「0」手動
- 「1」エクセル画面中央
- 「2」ディスプレイ画面中央
- 「3」画面の左上
手動を選択したら、表示させる高さや横位置も自由に設定することができるので、この手動を選択することがほとんどです。
手動でユーザーフォームの表示位置を自由に設定
手動を選んだら高さと位置を設定しましょう。
これにより、自由にユーザーフォームを表示する位置を自分で決めることができ、ユーザーフォームごとに指定できるのでとても重宝しています。
表示高さの設定
StartUpPositionの2つ下の項目「Top」で表示高さの位置を指定できます。
「0」で入力すると画面の一番上に表示されます。また、画面サイズによりますが、200ぐらいで中央付近ですね。
表示横位置の設定
StartUpPositionの15個上の項目「Left」で左からの位置を指定できます。
「0」で入力すると画面の一番左端に表示されます。同じく画面サイズによりますが、350ぐらいが中央付近ですね。
ここでは複雑なVBAでやらなくても、プロパティで簡単に設定できますよ。
関連記事
-
テキストボックス
複数のテキストボックスの値を一括で複数のセルの値に書き換える方法
【セルA1~A10の値をまとめてテキストボックス1~10に転記する】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦のルールなどを設定するユーザー… -
ユーザーフォーム
ユーザーフォームのタブやエンターでカーソル移動する順番変更方法
ユーザーフォームを使っていてテキストボックスに入力してtabやenterを押したら、入力したい順にカーソルが移動しなくて困ったことありませんか? タブオーダーという機… -
テキストボックス
複数テキストボックスの入力値を一括して各セルへ記載する方法
ユーザーフォームに配置した複数のテキストボックスの値をそれぞれ指定したセルへ次々とまとめて一括転送したいと思ったことありませんか? そして記載するVBAコードも… -
ユーザーフォーム
ユーザーフォームの✖ボタンでフォーム自体閉じられないようにする
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
チェックボックス
エクセルVBAでセルの値を取得してチェックボックスの状態を変える方法
ユーザーフォームに配置したチェックボックスの使い方としては、基本的にチェックを入れたら指定したセルに文字や数字を記載するために使いますが、その逆の使い方でセ… -
コマンドボタン
複数一括処理でコマンドボタンのキャプションをセルの値に書き換える方法
ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか? エ… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
コマンドボタン
VBAコマンドボタンにホームページURLを開く設定をする方法
ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませ… -
コマンドボタン
コマンドボタンのキャプションを文字ではなく画像にする2つの方法
ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思…
紅葉スポット
-
「乙女の湖」鎌北湖畔の湖面反射が美しい紅葉絶景へ東毛呂駅からバス
【紅葉見頃】 飯能市の北にある入間郡毛呂山町の山中にある鎌北湖は、毛呂山町ホームページによると昭和10年に完成した農業用貯水池として作られた人工湖で、周囲2㎞… -
日本庭園「松雲山荘」へ柏崎駅から徒歩圏内の大正時代からの紅葉名所
紅葉見頃 10月下旬~11月下旬 約3,000本つつじやもみじなどで大正時代に作られた日本庭園で、柏崎ガス創設者の飯塚謙三氏から柏崎市に移譲され無料で庭園内を散策でき… -
古峯神社の天狗の御朱印と紅葉名所へ鹿沼駅からバスで行く
御朱印を集める趣味が流行っていますが、ここ古峯神社の御朱印は天狗をイメージしたデザインで何種類あるかわかないぐらい様々あります。 そして、紅葉見頃となる10月中… -
紅葉の寸又峡コバルトブルーの夢の吊橋へ滞在時間2時間
サンドウィッチマンとゲストがバスで旅するバスサンドの放送を見て、ビックリするほど綺麗なコバルトブルーの湖にかかる吊り橋がとても気になったので、夏に青春18きっ… -
桜山公園へバスで群馬藤岡駅や本庄駅から冬桜と紅葉のコラボへ
なんと春と秋の年2回花見ができるので冬桜の名所として知られ、紅葉の見頃には冬桜と真っ赤な紅葉の紅葉が同時に見られることでも知られています。 また桜山公園ハイキ… -
日本三名瀑・袋田の滝は紅葉ライトアップの名所で袋田駅からバス
日本三名瀑でもある袋田の滝は、高さ120m幅70mの大きさを誇りトンネル横の展望台からは、目の前に迫った滝を見ることができます。 そしてエレベーターで昇った展望台…