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

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

По материалам: http://hiprog.com/index.php?option=com_content&task=view&id=251661690&Itemid=34

'---------------------------------------------------------------------------------------
' Procedure : DbRibbonMinimize
' Author    : Sonnih (ака Joss)
' 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

Function RibbonState() As Boolean
'Result: 0=normal, -1=autohide
    RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function

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