◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

ユーザーフォームの最小化

ユーザーフォームからＥｘｃｅｌブック・シートを操作していますが、ユーザーフォームの最小化ができません。ＶＢでは、ダイアログに MinBottun の設定がありますが、ＥＸＣＥＬでは見かけません。どうしたらいいでしょうか。

以下の様なコードで代用できます。

Private oldWidth As Single
Private oldHeight As Single
Private newWidth As Single
Private newHeight As Single

Private Sub UserForm_Initialize()
    oldWidth = Me.Width
    oldHeight = Me.Height
End Sub

Private Sub UserForm_Click()
    If Me.Width = newWidth And Me.Height = newHeight Then
        Me.Width = oldWidth
        Me.Height = oldHeight
    Else
        Me.Height = 0
        Me.Width = 0
        newWidth = Me.Width
        newHeight = Me.Height
    End If
End Sub