VBA, MS Access MS Access в примерах

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



'---------------------------------------------------------------------------------------
' Procedure : DbRibbonMinimize
' Author    : Sonnih
' Date      : 07.06.2017
' Purpose   : Для Access 2007 и выше сворачивает ленту Ribbon
'---------------------------------------------------------------------------------------
'
Function DbRibbonMinimize() As Boolean

#If VBA7 Then
    If Not RibbonState() Then
        Application.Echo False
        CommandBars.ExecuteMso "MinimizeRibbon"
        Application.Echo True
    End If
#End If

End Function

Назад ToTop
L.E. 15.01.2020
Рейтинг@Mail.ru