Ленты (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
|