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

1 モニター解像度によるユーザーフォームのサイズ変更の必要性
- 1.1 ユーザーフォームのサイズ変更の方法
- 1.2 サンプルコード
2 特別企画！IT企業の実情をIT企業の社長に聞いてみた！

この記事を書いた人
最新の記事

taka

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

サンプルコード

Private Sub UserForm_Initialize()
UserForm1.Zoom = 150'←-----↓は同じ数字---
UserForm1.Height = 200.25 * 150/ 100  '|
' 　　　　　　　　　　　　　　　　↓------------
UserForm1.Width = 200.25 * 150/ 100
End Sub

Private Sub UserForm_Initialize()

UserForm1.Zoom = 150'←-----↓は同じ数字---

UserForm1.Height = 200.25 * 150/ 100 '|

' 　　　　　　　　　　　　　　　　↓------------

UserForm1.Width = 200.25 * 150/ 100

End Sub

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

UserForm1.Zoom = 150

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

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

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

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

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

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

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

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

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

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

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

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

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

記事を見てみる

カテゴリーで絞る

月で探す

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

taka

最新記事 by taka (全て見る)