功能区的最大（小）化

时　间:2012-05-17 15:55:44
作　者:Big Young   ID：252  城市：襄阳
摘　要:简单展示了功能区的展开或收起。
正　文:

Public Sub MinimizeRibbon()
    If Application.CommandBars.Item("Ribbon").Visible = True Then
        If Application.CommandBars.Item("Ribbon").Height > 100 Then
            CommandBars.ExecuteMso "MinimizeRibbon"
        End If
    End If
End Sub
Public Sub MaximizeRibbon()
    If Application.CommandBars.Item("Ribbon").Visible = True Then
        If Not Application.CommandBars.Item("Ribbon").Height > 100 Then
            CommandBars.ExecuteMso "MinimizeRibbon"
        End If
    End If
End Sub

附   件:

点击这里下载