用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 2016、2013及2016中可以直接用CommandBars.GetPressedMso('MinimizeRibbon')来判断功能区的状态：

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

◆

Access培训讲师

        

    

      张志，2003年-2013连续10年获选微软最有价值专家，Access数据库培训讲师，十余年Access数据库培训经验，服务过的知名企业有北京奔驰、立达（中国）纺织仪器有限公司、中信泰富特钢集团等。

◆