Как реализовать функцию минимизации в выпадающем списке в Excel-Vba?

Question

Кто-нибудь, пожалуйста, помогите, скорее, новичку в Excel-Vba.Как реализовать функцию минимизации в верхней правой панели комбинированного списка, похожую на браузер?

Answer 1

Это изменение от этой публикации

Перетащите кнопку-переключатель на форму и поместите этот код в любом месте вашего модуля.Нажмите на переключатель, чтобы «свернуть» и снова повернуть его вспять.Поиграйте с числами, чтобы получить высоту и положение, как вы хотите.

Dim dWidth As Double
Dim wasTop, wasLeft As Integer
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Me.Height = Me.Height * 0.25
        wasTop = Me.Top
        wasLeft = Me.Left
        Me.Top = 400
        Me.Left = 100
    Else
        Me.Height = dWidth
        Me.Top = wasTop
        Me.Left = wasLeft
    End If
End Sub


Private Sub UserForm_Initialize()
    dWidth = Me.Height
End Sub