Excel ユーザーフォームの高さや幅の大きさを変更する-Height、Width

Excelで、ユーザーフォーム縦の高さ横の幅の大きさを変更する記録です。

高さを変えるには「Height」プロパティを、幅を変えるには「Width」プロパティを設定します。

手動でプロパティを変更する方法とVBAで変更する方法です。

今回のVBAはユーザーフォームを読み込んだ時のものですが、ボタンをクリックするとユーザーフォームの大きさを変更させるということもできますね。

< スポンサーリンク >





手動で高さと幅のプロパティを設定

ユーザーフォームをアクティブにし、プロパティウィンドウのボタンをクリックします。

Excelユーザーフォームサイズ

 

「Height」の欄をポイント数で指定すると高さが変更されます。

Excelユーザーフォームサイズ

 

「Width」の欄をポイント数で指定すると幅が変更されます。

Excelユーザーフォームサイズ

 

ユーザーフォームを実行してみると、ユーザーフォームの大きさが変わっています。

Excelユーザーフォームサイズ

 

VBAで高さと幅のプロパティを設定

ユーザーフォームを読み込んだときに大きさを変更してみます。

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

Excelユーザーフォームサイズ

 

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

Excelユーザーフォームサイズ

 

「Private Sub UserForm_Initialize()」と「End Sub」の間にユーザーフォームの高さと幅の値を書き込みます。

Private Sub UserForm_Initialize()
    With UserForm1
        .Height = 200
        .Width = 200
    End With
End Sub

Excelユーザーフォームサイズ

 

ユーザーフォームを実行してみると、ユーザーフォームの大きさが変わっています。

Excelユーザーフォームサイズ

 

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