_旦~~モニター解像度によるユーザーフォームのサイズ変更の必要性ユーザーfフォームのサイズ変更の必要性・・・それは画面の解像度によってユーザーフォームのサイズが変わることです(*_*;一昔のパソコン画面では画面いっぱいに設定してあったユーザーフォームも、最近のパソコンのモニターの解像度で表示するとかなり小さく表示されてしまいます(T_T)前のモニターの解像度に最適化してあったサイズ作成していた場合でも、新しいモニターでは見づらくなってしまうのです(T_T)/~~~ですが手作業でのサイズ変更もなかなか大変な作業ですよね、textboxやボタン、リストボックス・・・さまざまなコントロールを配置していた場合、それぞれを一つずつサイズ変更するのはかなりの労力と時間が必要だと思われます(ー_ー)!!なのでこの労力を少なくするコードをお伝えいたします(^.^)ユーザーフォームのサイズ変更の方法さて、ここに縦・横のサイズが約200の正方形のユーザーフォームを用意いたしました、このユーザーフォームのサイズを変更したい、ではまずはじめに何をするか?ユーザーフォームの設定を変更しようとするときに一番初めに気にするのはプロパティウィンドウだと思います、それで正解です!!では、プロパティウィンドウにそれらしい項目を探してみると「zoom」という項目がありますよね?まずはこの数字を変えてみましょう(^^)「zoom」の値は既定の100になっています。これを150に変更してみます中のtextboxだけが大きくなったのがお分かりいただけますでしょうか?(^<^)そう、プロパティの「zoom」は「フォーム上のコントロールの表示を大きくする」だけでフォームの大きさは変更されません。100これはUserForm1の高さの200.25をもとに高さを150%にします。このようにズームと同じ%で高さ、横を変更しているので見栄えが変わらなく表示崩れ無しで拡大表示が可能です。注意点zoomの数値と縦・横の数値(サンプルコードの150の部分)を同じ数字にしなかった場合は表示崩れを起こします。上のサンプルコードの部分を変数やシート上の数値に指定することで、ユーザーフォームを自分の好きな大きさへとサイズ変更ができるようになります!(^^)!デザインの関係や、使う人によって大きさを変えたい時などに有効ですのでぜひ活用してください(^.^)Ps.使い方は自由ですが個人的には「Initialize」での使用がおすすめです。@taka_pc1027■YouTubeチャンネル登録ファイルやコードの利用、WEBサイトの利用についてサンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。応用ExcelVBAユーザーフォームこの記事が気に入ったらいいねしよう!最新記事をお届けします。コメントをキャンセルメールアドレスが公開されることはありません。IFを使用した条件分岐・複数の条件(And/Or)RECOMMENDこちらの記事も人気です。pvプロフィールどうも本サイト【E-VBA】のtakaと申します!ひょんなことからVBAを学ぶことになった非IT社員です。