コマンドボタンをクリックして、ラベルに表示する文字列のフォントサイズを指定する方法について紹介します。
構文
記述方法は以下の通りとなります。
[ラベル名].Font.Size =[フォントのサイズ]
[説明]:
[ラベル名]にはラベルのオブジェクト名を記述します。[フォントのサイズ]にはサイズを表すポイント単位の数値を設定します。内容を纏めると、「[ラベル名]で指定したラベル文字列を[フォントのサイズ]で指定したサイズに変更して下さい。」との意味になります。(※[ラベル名].Fontは、ラベルプロパティ内にある[Font]と同じ意味になります。)
[記述例]:
Private Sub フォントサイズ18_Click()
あいさつ.Font.Size = 18
End Sub
[サンプルフォーム]:
今回は以下のサンプルフォームを使用して説明します。
・フォーム名の付け方はこちらを参考にして下さい。
・ラベル名の付け方はこちらを参考にして下さい。
・コマンドボタン名の付け方はこちらを参考にして下さい。
・コマンドボタンへの表示文字の付け方はこちらを参考にして下さい。
[実行内容]:
上記のサンプルフォーム内にある
<フォントサイズ:18>ボタンをクリックすると、
ラベル名:あいさつの「おはようございます。」がサイズ18
<フォントサイズ:24>ボタンをクリックすると、
ラベル名:あいさつの「おはようございます。」がサイズ24
<フォントサイズ:11>ボタンをクリックすると、
ラベル名:あいさつの「おはようございます。」がサイズ11
に変更される方法について紹介します。
ラベルに表示する文字列のフォントサイズを指定する方法
(1)VBE(VBA記述画面)を開き、予め作成したテストフォームがある事を確認します。(※VBEの開き方についてはこちらを参考にして下さい。)
(2)フォームにある<フォントサイズ:18>ボタン上で右クリックします。小窓が開くので「コードの表示」を選択します。
(3)「フォントサイズ18_Click」イベントプロシージャが表示されます。(※これは自動的に作成される仕組みとなっている様です。)
(4)実行する処理内容を記述します。今回はボタンがクリックされた場合に、ラベル名:あいさつに入力されている文字列フォントサイズを「18」にする設定内容を記述します。
Private Sub フォントサイズ18_Click()
あいさつ.Font.Size = 18
End Sub
(5)また、その他のボタンである<フォントサイズ:24>ボタンや<フォントサイズ:11>ボタンについても、上記の(2)~(4)と同じ様に処理内容を記述します。
(6)<フォントサイズ:24>ボタンがクリックされた場合には、ラベル名:あいさつに入力されている文字列フォントサイズを「24」にし、<フォントサイズ:11>ボタンがクリックされた場合には、文字列フォントサイズを「11」にする設定内容を記述します。
Private Sub フォントサイズ24_Click()
あいさつ.Font.Size = 24
End Sub
Private Sub フォントサイズ11_Click()
あいさつ.Font.Size = 11
End Sub
(7)上部にある実行ボタン(▶)をクリックします。
(8)テストフォームが表示されます。
(9)最初に<フォントサイズ:18>ボタンをクリックします。
(10)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォントサイズ:18で表示されます。(※<フォントサイズ:18>ボタンに設定した上記(4)イベントプロシージャが実行された事が分かります。)
(11)次に<フォントサイズ:24>ボタンをクリックします。
(12)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォントサイズ:24で表示されます。(※<フォントサイズ:24>ボタンに設定した上記(6)イベントプロシージャが実行された事が分かります。)
(13)次に<フォントサイズ:11>ボタンをクリックします。
(14)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォントサイズ:11で表示されます。(※<フォントサイズ:11>ボタンに設定した上記(6)イベントプロシージャが実行された事が分かります。)
ラベルに表示する文字列のフォントサイズを指定する方法についての説明は以上です。
サンプル
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
おわりに
今回はラベルのフォント書式を設定する方法②(フォントのサイズ)について説明しました。その他類似内容でフォントの太字設定・フォントの種類設定・フォントの斜体設定もあります。こちらも参考にして下さい。