【VBA】ユーザーフォームの表示時に最大化/最小化する方法

ユーザーフォームの表示時に最大化したり最小化する方法を説明していきます。

ユーザーフォームを任意のタイミングで最大化/最小化する

準備

リンク先の「UserFormStyleChange」クラスモジュールを作成してください。

ユーザーフォームを最大化する

ユーザーフォームに以下のコードを張り付けてください。

Dim UserFormStyleChange As New UserFormStyleChange
Private Sub UserForm_Activate()
    Call UserFormStyleChange.ShowMaximized
End Sub

ユーザーフォームを最小化する

ユーザーフォームに以下のコードを張り付けてください。

Dim UserFormStyleChange As New UserFormStyleChange
Private Sub UserForm_Activate()
    Call UserFormStyleChange.ShowMinimized
End Sub