VBA专题10-5:使用VBA操控Excel界面之隐藏/取消隐藏及最小化功能区

2020-08-17 15:39:25 浏览数 (1)

可以重命名和隐藏内置选项卡和内置组,改变其在功能区中的顺序。然而,不能重命名和隐藏内置控件,修改内置控件的图标,修改功能区内置组中内置控件的顺序。

要在组中添加内置的和自定义控件,必须将它们添加到内置选项卡中的自定义组,或者新的、自定义的选项卡。

隐藏和取消隐藏功能区

当隐藏功能区时,功能区选项卡和选项卡中的控件全被隐藏。

示例代码:

代码语言:javascript复制
'隐藏和取消隐藏功能区
Application.ExecuteExcel4Macro"Show.ToolBar(""Ribbon"",False)" '隐藏
Application.ExecuteExcel4Macro"Show.ToolBar(""Ribbon"",True)" '取消隐藏

尽管功能区被隐藏了,但其高度仍然是隐藏前的值。因此,检查功能区的高度不能告诉是否功能区被隐藏。下面的代码是检查功能区是否隐藏的合适的方法:

代码语言:javascript复制
'检查是否功能区被隐藏
If Application.CommandBars("Ribbon").Visible Then
Debug.Print"可见的"
Else
Debug.Print"隐藏"
End If

最小化功能区

当功能区最小化时,仅能看到功能区选项卡的名称。单击选项卡的名称将临时显示该选项卡的控件。不使用VBA代码,要切换到显示该选项卡中的控件,只需双击当前选择的选项卡的名称或者按Ctrl F1键。

没有单独的VBA命令来最小化功能区。下面的语句仅切换选项卡中控件的显示:

'切换显示功能区中的控件

Application.CommandBars.ExecuteMso "MinimizeRibbon"

注意,MinimizeRibbon命令在Excel 2007中不存在。上面的代码只适用于Excel 2010及以后的版本。

如果功能区最初是最小化的,那么无意中执行上面语句将恢复显示功能区中的控件。要确保仅在功能区最初没有最小化时执行该语句,首先要检查功能区的高度,当没有最小化时功能区高度值大于100,或者可以使用GetPressedMso方法来检查功能区的状态。下面的代码展示了最小化功能区的两种可能的方法:

代码语言:javascript复制
'最小化功能区
'第1种方法
With Application
    If.CommandBars("Ribbon").Height > 100 Then
       .CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End With
'第2种方法
With Application
    If Not.GetPressedMso("MinimizeRibbon") Then
        .ExecuteMso"minimizeRibbon"
    End If
End With

如果功能区被隐藏,那么上面的切换语句不会取消隐藏。因此,下面的代码在最小化前使功能区取消隐藏(如果其最初是隐藏的):

代码语言:javascript复制
'最小化功能区
'如果被隐藏则取消隐藏功能区
With Application
    If Not.CommandBars("Ribbon").Visible Then
        .ExecuteExcel4Macro"Show.ToolBar(""Ribbon"",True)"
    End If
End With
'最小化功能区
With Application.CommandBars
    If Not.GetPressedMso("MinimizeRibbon") Then
        .ExecuteMso"MinimizeRibbon"
    End If
End With

如果功能区是自动隐藏的,那么执行该VBA代码语句来切换显示功能区控件将不被允许,并会导致运行时错误。因此,下面的代码在最小化功能区之前检查功能区的高度,当功能区自动隐藏时其高度值小于25:

代码语言:javascript复制
'最小化功能区
With Application
    '检查功能区是否自动隐藏
    If.CommandBars("Ribbon").Height < 25 Then
        MsgBox "当其自动隐藏时不能最小化功能区"
    Else
        '如果隐藏则取消隐藏功能区
        If Not .CommandBars("Ribbon").VisibleThen
           .ExecuteExcel4Macro"Show.ToolBar(""Ribbon"",True)"
        End If
        '最小化功能区
        With .CommandBars
            If Not.GetPressedMso("MinimizeRibbon") Then
                .ExecuteMso"MinimizeRibbon"
            End If
        End With
    End If
End With

说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours:Changingworkbook appearance》,仅供学习研究。

0 人点赞