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

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

下図はExcel2016です。

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

 

< スポンサーリンク >

 

プロパティで設定

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

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

 

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

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

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

 

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

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

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

 

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

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

 

VBAで設定

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

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

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

 

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

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

 

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

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

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

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

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ