Excel ユーザーフォームのコマンドボタンの文字の大きさを変更する

Excelで、ユーザーフォームのコマンドボタンの文字の大きさを変更する記録です。

下図はExcel2016です。

< スポンサーリンク >

プロパティで設定

コマンドボタンの文字の大きさを16ポイントにしてみます。

VBE上でコマンドボタンをアクティブにし、プロパティウィンドウのボタンをクリックします。

プロパティウィンドウの［Font］欄の［…］をクリックします。

フォントサイズを16ポイントを選択し、［OK］をクリックします。

ユーザーフォームを実行すると、コマンドボタンの文字が16ポイントになっています。

VBAで設定

Initializeイベントを使って、コマンドボタンの文字の大きさを20ポイントにしてみます。

ユーザーフォームをダブルクリックします。

右側のプロシージャボックスで「Initialize」を選択します。

コマンドボタンの文字サイズを20ポイントに設定するコードです。

Private Sub UserForm_Initialize()
    CommandButton1.Font.Size = 20
End Sub

ユーザーフォームを実行すると、コマンドボタンの文字が20ポイントになっています。