ExcelVBAで簡単にユーザーフォームのサイズ変更する方法



The following two tabs change content below.

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

どうも、takaです、みなさんVBAを使用していて「userfoamのサイズを変更したいなぁ」なんてこと思ったことはありませんか?

実際気になって検索してみると「API」を使用した方法など、結構ハードルが高いイメージがありますよね?

ですが、本当は簡単に変更する方法があります\(◎o◎)/!

確かに「ウィンドウに合わせて全画面」などはAPIを使わないかもしれませんが、ただモニターを変更したときや目が悪い人が見るときに大きさを変えたい時などに使う場合には今回ご紹介する方法で解決できると思いますので是非お使いください( ^^) _旦~~

モニター解像度によるユーザーフォームのサイズ変更の必要性

ユーザーfフォームのサイズ変更の必要性・・・それは画面の解像度によってユーザーフォームのサイズが変わることです(*_*;

一昔のパソコン画面では画面いっぱいに設定してあったユーザーフォームも、最近のパソコンのモニターの解像度で表示するとかなり小さく表示されてしまいます(T_T)

前のモニターの解像度に最適化してあったサイズ作成していた場合でも、新しいモニターでは見づらくなってしまうのです(T_T)/~~~

ですが手作業でのサイズ変更もなかなか大変な作業ですよね、textboxやボタン、リストボックス・・・さまざまなコントロールを配置していた場合、それぞれを一つずつサイズ変更するのはかなりの労力と時間が必要だと思われます(ー_ー)!!

なのでこの労力を少なくするコードをお伝えいたします(^.^)

ユーザーフォームのサイズ変更の方法

さて、ここに縦・横のサイズが約200の正方形のユーザーフォームを用意いたしました、このユーザーフォームのサイズを変更したい、ではまずはじめに何をするか?

ユーザーフォームの設定を変更しようとするときに一番初めに気にするのはプロパティウィンドウだと思います、それで正解です!!

では、プロパティウィンドウにそれらしい項目を探してみると「zoom」という項目がありますよね?まずはこの数字を変えてみましょう(^^)

100

「zoom」の値は既定の100になっています。これを150に変更してみます

 

中のtextboxだけが大きくなったのがお分かりいただけますでしょうか?(^<^)

そう、プロパティの「zoom」は「フォーム上のコントロールの表示を大きくする」だけでフォームの大きさは変更されません。 

なので、これではサイズ変更には向きません(*_*;

高さ・横も変更しなければコントロールが表示しきれなく切れて表示されてしまうことになってしまいます( 一一)

逆に言えば、高さ・横・zoomを同じ率で変更すればきれいに変更できるというわけです\(◎o◎)/!

では早速、高さ・横・zoomを変更するコードを書いていきましょう!(^^)!

サンプルコード

念のためサンプルコードの説明をさせていただきますと

UserForm1.Zoom = 150

これは見ての通りですね、UserForm1のZoom を 150に変更するというコード

続いてはUserForm1.Height = 200.25 * 150/ 100

これはUserForm1の高さの200.25をもとに高さを150%にします。というコードです

UserForm1.Width の部分も同じです。

このようにームと同じ%で高さ、横を変更しているので見栄えが変わらなく表示崩れ無しで拡大表示が可能です。

注意点
zoomの数値と縦・横の数値(サンプルコードの150の部分)を同じ数字にしなかった場合は表示崩れを起こします。

上のサンプルコードの部分を変数やシート上の数値に指定することで、ユーザーフォームを自分の好きな大きさへとサイズ変更ができるようになります!(^^)!

デザインの関係や、使う人によって大きさを変えたい時などに有効ですのでぜひ活用してください(^.^)

Ps.使い方は自由ですが個人的には「Initialize」での使用がおすすめです。

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Sponsored Link

 

特別企画!IT企業の実情をIT企業の社長に聞いてみた!

独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな?でも、IT企業って良いイメージ聞かないし実際はどうなんだ?」という疑問にIT企業の社長に直に聞いてみました!!

コメントを残す

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