VBA专题10

您所在的位置:网站首页 excel如何取消折叠功能区显示内容 VBA专题10

VBA专题10

2024-07-16 10:34:38| 来源: 网络整理| 查看: 265

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

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

隐藏和取消隐藏功能区

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

示例代码:

代码语言: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》,仅供学习研究。



【本文地址】

公司简介

联系我们

今日新闻


点击排行

实验室常用的仪器、试剂和
说到实验室常用到的东西,主要就分为仪器、试剂和耗
不用再找了,全球10大实验
01、赛默飞世尔科技(热电)Thermo Fisher Scientif
三代水柜的量产巅峰T-72坦
作者:寞寒最近,西边闹腾挺大,本来小寞以为忙完这
通风柜跟实验室通风系统有
说到通风柜跟实验室通风,不少人都纠结二者到底是不
集消毒杀菌、烘干收纳为一
厨房是家里细菌较多的地方,潮湿的环境、没有完全密
实验室设备之全钢实验台如
全钢实验台是实验室家具中较为重要的家具之一,很多

推荐新闻


图片新闻

实验室药品柜的特性有哪些
实验室药品柜是实验室家具的重要组成部分之一,主要
小学科学实验中有哪些教学
计算机 计算器 一般 打孔器 打气筒 仪器车 显微镜
实验室各种仪器原理动图讲
1.紫外分光光谱UV分析原理:吸收紫外光能量,引起分
高中化学常见仪器及实验装
1、可加热仪器:2、计量仪器:(1)仪器A的名称:量
微生物操作主要设备和器具
今天盘点一下微生物操作主要设备和器具,别嫌我啰嗦
浅谈通风柜使用基本常识
 众所周知,通风柜功能中最主要的就是排气功能。在

专题文章

    CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭