Excel ユーザーフォームのコマンドボタンの大きさを変更する-Height、Width

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

高さは「Height」プロパティを使い、幅は「Width」プロパティを使います。

手動で設定する方法とVBAで設定する方法です。

< スポンサーリンク >





手動で「Height」「Width」プロパティを設定

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

Excelユーザーフォームボタン大きさ

 

高さを20ポイントにしてみます。

プロパティウィンドウの[Height]欄に「20」と入力します。

Excelユーザーフォームボタン大きさ

 

幅を50ポイントにしてみます。

プロパティウィンドウの[Width]欄に「50」と入力します。

Excelユーザーフォームボタン大きさ

 

ユーザーフォームを実行すると、ボタンの大きさが高さ20ポイント、幅50ポイントになっています。

Excelユーザーフォームボタン大きさ

 

VBAで「Height」「Width」プロパティを設定

Initializeイベントを使って、コマンドボタンの大きさを変更してみます。

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

Excelユーザーフォームボタン大きさ

 

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

Excelユーザーフォームボタン大きさ

 

コマンドボタンの大きさを高さ40ポイント、幅80ポイントに設定するコードです。。

Private Sub UserForm_Initialize()
    With CommandButton1
        .Height = 40
        .Width = 80
    End With
End Sub

Excelユーザーフォームボタン大きさ

Excelユーザーフォームボタン大きさ

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします