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

附   件:

点击这里下载