文件名称：通过编程方式来使用菜单-mathematical statistics with applications
文件大小：13.45MB
文件格式：PDF
更新时间：2024-06-22 07:59:53
excel,VBA
17.2 通过编程方式来使用菜单 使用V B A代码来添加菜单跟添加工具栏非常相似。实际上是把菜单项添加到跟工具栏共 用的集合，也就是叫做C o m m a n d B a r s的集合中。添加菜单栏的基本语法如下： CommandBars.Add ( Name, Position, MenuBar, Te m p o r a r y ) N a m e参数指定了命令栏的名称。令人惊奇的是， N a m e参数居然是可选的。如果没有给 这个参数提供值的话，系统就会给这个命令栏分配一个默认的名称，比如 Custom 1。 P o s i t i o n（位置）是另外一个可选的参数，这个参数允许选择新命令栏的位置或者类型。 因为下面要创建的是菜单栏，所以需要把 M e n u B a r参数设置为Tr u e。把这个参数设置为 Tr u e就用新命令栏取代了当前活动的菜单栏。该参数的默认值是 F a l s e。 最后一个参数是 Te m p o r a r y（临时的），它也是可选的。把这个参数设置为 Tr u e就使得新 命令栏成为临时的。临时命令栏在包容器应用程序关闭时被删除。这个参数的默认值是 F a l s e。 在你的应用程序中，也许想要把这个参数设置为 Tr u e，这样就不会把新增加的临时菜单栏遗 留在E x c e l环境中。 现在开始学习菜单：我们即将创建新菜单，并显示新菜单来取代工作表菜单。要创建自 定义菜单的话，关闭所有打开的工作簿，然后打开一个新工作簿，按下 A l t + F 11切换到Vi s u a l B a s i c编辑器，在这个新工作簿中插入一个模块，接下来请执行下面的步骤： 1）创建一个新过程，命名为M y F i r s t M e n u b a r。 2）在这个新过程中输入下面的代码： Dim mybar As CommandBar Set mybar = CommandBars.Add(Name: ="Hour17", _ P o s i t i o n : = m s o B a r Top, MenuBar:=True, temporary:=Tr u e ) m y b a r. Visible = Tr u e C o m m a n d B a r s ( " Worksheet Menu Bar").Visible = False 3）另外创建一个过程，命名为U n d o M y M e n u。 4）在这个过程中输入下面的代码： CommandBars ( "Hour 17" ). Delete 5）切换回工作簿，在 S h e e t 1上创建一个命令按钮，把宏过程 M y F i r s t M e n u b a r分配给这个 命令按钮，并把按钮的标题设置为 My Menu。 6）另外创建一个命令按钮，把宏过程 U o d o M y M e n u分配给它，并把它的标题设置为 146使用中文Excel 2000编程 2 4学时教程