ユーザーフォームの最大化・最小化・サイズ可変を設定する

大変便利なの見つけたのですが、ユーザーフォームごとにコードをごちゃごちゃ書くのも面倒ですし、標準モジュール用のコードもユーザーフォーム名を指定したりと汎用性にあと一押し欲しかったので微妙に書き換えさせていただきました。

コード ユーザーフォーム

UserForm_Initializeイベントに1行加えるだけ

Private Sub UserForm_Initialize()
'～ほかの初期化処理～
  Call ResizableFormShow(Me)
End Sub

コード 標準モジュール

Option Explicit

Sub ResizableFormShow(TargetUF As UserForm)
  Dim rfc As ResizableFormClass
  Set rfc = New ResizableFormClass
  Set rfc.Form = TargetUF
  
  '設定を変更した場合はRedrawする
  With rfc
      .Maximize = True  'Default = True
      .Minimize = True  'Default = True
      .Resize = True    'Default = True
      .Redraw           '再描画
  End With
  
End Sub

コード クラスモジュール

ここは元のものから変えてないので転載はやめておきます