VBA专题10 |
您所在的位置:网站首页 › excel如何取消折叠功能区显示内容 › VBA专题10 |
可以重命名和隐藏内置选项卡和内置组,改变其在功能区中的顺序。然而,不能重命名和隐藏内置控件,修改内置控件的图标,修改功能区内置组中内置控件的顺序。 要在组中添加内置的和自定义控件,必须将它们添加到内置选项卡中的自定义组,或者新的、自定义的选项卡。 隐藏和取消隐藏功能区 当隐藏功能区时,功能区选项卡和选项卡中的控件全被隐藏。 示例代码: 代码语言: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》,仅供学习研究。 |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |