ユーザーフォームのラベルの書体・大きさを変更する

ユーザーフォームに配置した説明書きやタイトルなどで使うラベルの文字のフォント変えたくないですか？

機能的には何も変わらないので無理に設定する必要はないのですが、せっかく作っているオリジナル入力フォームなので、初期設定のMS UI Gothicよりも自分好みの文字書体や大きさに変更しましょう。

ちなみにユーザーフォームって？何？または、オリジナル入力フォームについては下記をご覧くださいませ、このページはこちらの内容の続きになっています。

ラベルの書式設定をする

ユーザーフォームにラベルを配置すると、文字の初期設定での書体は「MS UI Gothic」で大きさは9pxとなっています。

ラベルのプロパティで書式設定

１、書体と大きさを変更したいラベルをクリック

２、プロパティウィンドウが左下に表示されます

３、書体・フォント変更はFontをクリック

４、…が表示されるのでクリック

５、フォント画面で書体・大きさなど自由に変更できます。

こんな風に変更できました。

VBAコードで書式設定

プロパティを使って書式設定を行うと条件に応じて変化させることができませんが、VBAコードで書式設定をすれば変更可能になります。

ここでは基本的なVBAコードでコマンドボタンを押して書式設定する方法を記載します。

この基本系を使って条件によって書式変えるにはIf～Then、Else～End Ifを使えば可能になりますね。

ここでは書式設定ついでに、文字色も入れておきましたので背景色も含めて設定するには下記の関連記事を参考にして下さい。

書体を選ぶ時はラベルのプロパティからFontをクリックして「…」を押せば、フォントのダイアログボックスが表示されるのでコピペしたほうが楽ですよ。

プロパティ	フォント書式内容	設定方法
Bold	太字	設定（True）・解除（False）
Size	サイズ	pxの数値で指定
Name	書体	フォント名を指定
Italic	斜体	設定（True）・解除（False）