用vba判断功能区的状态

时　间:2018-02-27 09:41:46
作　者:Big Young   ID：252  城市：襄阳
摘　要:    用vba判断功能区的状态。
正　文:

    用vba判断功能区的状态，在access 2007中可以用以下代码实现：

Function RibbonIsMinimised() As Boolean
    Dim sngHeight As Single
    
    sngHeight = Application.CommandBars("Ribbon").Height
    CommandBars.ExecuteMso "MinimizeRibbon"
    DoEvents
    RibbonIsMinimised = Application.CommandBars("Ribbon").Height > sngHeight
    CommandBars.ExecuteMso "MinimizeRibbon"
End Function


Sub Test()
    If RibbonIsMinimised Then
        MsgBox "Minimised"
    Else
        MsgBox "Maximised"
    End If
End Sub

在access 2010、2013及2016中可以直接用CommandBars.GetPressedMso("MinimizeRibbon")来判断功能区的状态：

Sub 显示功能区状态()
    If CommandBars.GetPressedMso("MinimizeRibbon") Then
        MsgBox "功能区目前处于最小化状态。"
    Else
        MsgBox "功能区目前处于最大化状态。"
    End If
End Sub