Ленты (Ribbons) - Сворачивание

Private Function DbRibbonMinimize() As Boolean
#If VBA7 Then
    If Not (CommandBars("Ribbon").Controls(1).Height < 100) Then
        Application.Echo False
        CommandBars.ExecuteMso "MinimizeRibbon"
        Application.Echo True
    End If
#End If
End Function