Excel ユーザーフォームの中身を拡大縮小する-Zoom

Excelで、ユーザーフォームのウィンドウ全体ではなく、中身を拡大したり縮小する方法の記録です。

拡大、縮小するには「Zoom」プロパティを使います。

手動で設定する方法と、VBAで設定する方法を記録しています。

< スポンサーリンク >





手動で拡大、縮小のプロパティを設定

ユーザーフォームの中身を50にしてみます。

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

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

 

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

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

 

ユーザーフォームを実行するとユーザーフォームの中身が50で表示されています。

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

 

VBAで拡大、縮小のプロパティを設定

VBAで「Initialize」イベントを使ってみます。

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

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

 

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

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

 

ユーザーフォームの中身を80にしてみます。コードは下記のように書き込みます。

Private Sub UserForm_Initialize()
    UserForm1.Zoom = 80
End Sub

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

 

ユーザーフォームを実行するとユーザーフォームの中身が80で表示されています。

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

 

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