教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】ラベルのフォント書式を設定する方法③(フォントの種類)について教えて!

f:id:m_kbou:20210729084922p:plain

コマンドボタンをクリックして、ラベルに表示する文字列フォントの種類を変更する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

[ラベル名].Font.Name = ”[フォントの種類]”

[説明]:

[ラベル名]にはラベルのオブジェクト名を記述します。[フォントの種類]にはフォント名を設定します。また、[フォントの種類]は「”」(ダブルクォーテーション)で囲みます。内容を纏めると、「[ラベル名]で指定したラベル文字列を[フォントの種類]で指定したフォントに変更して下さい。」との意味になります。(※フォントの種類を指定する時には、フォント名の全角・半角・大文字・小文字・空白等を正確に記述する必要があります。不安な方はラベルプロパティ内にある[Font]の使い方の(2)フォント画面中にあるフォント名をコピーして使用して下さい。)

[記述例]:

Private Sub HGP創英角ポップ体_Click()
  あいさつ.Font.Name = "HGP創英角ポップ体"
End Sub

[サンプルフォーム]: 

今回は以下のサンプルフォームを使用して説明します。
・フォーム名の付け方はこちらを参考にして下さい。
・ラベル名の付け方はこちらを参考にして下さい。
・コマンドボタン名の付け方はこちらを参考にして下さい。
・コマンドボタンへの表示文字の付け方はこちらを参考にして下さい。

f:id:m_kbou:20210729085030p:plain

[実行内容]: 

上記のサンプルフォーム内にある
 <HGP創英角ポップ体>ボタンをクリックすると、
    ラベル名:あいさつの「おはようございます。」が、
                    フォント:HGP創英角ポップ体に
 <MS ゴシック>ボタンをクリックすると、
    ラベル名:あいさつの「おはようございます。」が、
                    フォント:MS ゴシックに
 <HG丸ゴシックM-PRO>ボタンをクリックすると、
    ラベル名:あいさつの「おはようございます。」が、
                    フォント:HG丸ゴシックM-PROに
変更される方法について紹介します。

 

ラベルに表示する文字列のフォント種類を変更する設定方法及び実行結果

設定方法及び実行結果について説明します。

(1)VBE(VBA記述画面)を開き、予め作成したテストフォームがある事を確認します。(※VBEの開き方についてはこちらを参考にして下さい。)

f:id:m_kbou:20210729085048p:plain

(2)フォームにある<HGP創英角ポップ体>ボタン上で右クリックします。小窓が開くので「コードの表示」を選択します。

f:id:m_kbou:20210729085103p:plain

(3)「HGP創英角ポップ体_Click」イベントプロシージャが表示されます。(※これは自動的に作成される仕組みとなっている様です。)

f:id:m_kbou:20210729085118p:plain

(4)実行する処理内容を記述します。今回はボタンがクリックされた際に、ラベル名:あいさつに入力されている文字列のフォントを「HGP創英角ポップ体」にする設定内容を記述します。(※ここで今回の題目であるラベルに入力されている文字列のフォント種類を変更する内容を記述します。)

Private Sub HGP創英角ポップ体_Click()
  あいさつ.Font.Name = "HGP創英角ポップ体"
End Sub

f:id:m_kbou:20210729085132p:plain

(5)フォームにある<MS ゴシック>ボタンや<HG丸ゴシックM-PRO>ボタンについても、上記の(2)~(4)と同じ様に処理内容を記述します。

f:id:m_kbou:20210729085146p:plain

(6)<MS ゴシック>ボタンがクリックされた際には、ラベル名:あいさつに入力されている文字列のフォントを「MS ゴシック」にし、<HG丸ゴシックM-PRO>ボタンがクリックされた際には、文字列のフォントを「HG丸ゴシックM-PRO」にする設定内容を記述します。(※ここで今回の題目であるラベルに入力されている文字列のフォント種類を変更する内容を記述します。) 

Private Sub MSゴシック_Click()
  あいさつ.Font.Name = "MS ゴシック"
End Sub

Private Sub HG丸ゴシックMPRO_Click()
  あいさつ.Font.Name = "HG丸ゴシックM-PRO"
End Sub

f:id:m_kbou:20210729085202p:plain

(7)上部にある実行ボタン(▶)をクリックします。

f:id:m_kbou:20210729085216p:plain

(8)テストフォームが表示されます。

f:id:m_kbou:20210729085235p:plain

(9)最初に<HGP創英角ポップ体>ボタンをクリックします。

f:id:m_kbou:20210729085250p:plain

(10)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォント:HGP創英角ポップ体で表示されます。(※<HGP創英角ポップ体>ボタンに設定した上記(4)イベントプロシージャが実行された事が分かります。)

f:id:m_kbou:20210729085303p:plain

(11)次に<MS ゴシック>ボタンをクリックします。

f:id:m_kbou:20210729085318p:plain

(12)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォント:MS ゴシックで表示されます。(※<MS ゴシック>ボタンに設定した上記(6)イベントプロシージャが実行された事が分かります。)

f:id:m_kbou:20210729085334p:plain

(13)次に<HG丸ゴシックM-PRO>ボタンをクリックします。

f:id:m_kbou:20210729085348p:plain

(14)ラベル名:あいさつに入力されている文字列「おはようございます。」がフォント:HG丸ゴシックM-PROで表示されます。(※<HG丸ゴシックM-PRO>ボタンに設定した上記(6)イベントプロシージャが実行された事が分かります。)

f:id:m_kbou:20210729085400p:plain

ラベルのフォント書式を設定する方法③(フォントの種類)についての説明は以上です。

 

サンプル

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

  

おわりに

今回はラベルのフォント書式を設定する方法③(フォントの種類)について説明しました。その他類似内容でフォントの太字設定フォントのサイズフォントの斜体設定もあります。こちらも参考にして下さい。