可以重命名和隐藏内置选项卡和内置组,改变其在功能区中的顺序。然而,不能重命名和隐藏内置控件,修改内置控件的图标,修改功能区内置组中内置控件的顺序。
要在组中添加内置的和自定义控件,必须将它们添加到内置选项卡中的自定义组,或者新的、自定义的选项卡。
隐藏和取消隐藏功能区
当隐藏功能区时,功能区选项卡和选项卡中的控件全被隐藏。
示例代码:
代码语言: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》,仅供学习研究。