当前位置：首页 → 问答吧 → 关于菜单和工具栏(适用于全部Office组件)

关于菜单和工具栏(适用于全部Office组件)

时间：2002-12-25

来源：互联网

经常看到有网友问菜单和工具栏的问题，包括使菜单项失效，禁止右键菜单弹出，增加菜单项等，自己也回答了不少这方面的问题，这些问题其实都是雷同的，数月之前就打算写点东西介绍一下这方面的内容，但一直都忙于工作，直至现在才抽出时间来完成。菜单和工具栏在编程中都是同一个对象——CommandBars，所有对菜单和工具栏的编程都必然是围绕这个对象展开的，右键菜单也不例外，并且每个右键菜单对应一个CommandBar对象，例如:在Word中，CommandBars(“Text”)相当于在文档中单击右键弹出的菜单， CommandBars(“Text”).ShowPopup可以弹出右键菜单，相当于单击了右键。菜单和工具栏的每一个选项分别对应一个Control，例如：CommandBars(“Text”).Controls(1)对应右键菜单的第一项， CommandBars(“Text”).Controls(1).Enabled = False可使”剪切”选项失效。可用Name属性引用CommandBar对象，Caption属性引用Control;序号则可用于两者.CommandBars(63).Name的值就是”Text”， CommandBars(63).Controls("剪切(&T)").Enabled = False同样可令右键菜单的”剪切”选项失效。菜单项中的某一项如果有子菜单，那么这项也属于CommandBar对象，如“视图”菜单中的“工具栏”有有关工具栏的子菜单，所以“视图”属于CommandBar对象，想禁用“视图”，可用语句：CommandBars("View").Controls(5).CommandBar.Enabled = False，很多网友问怎样禁止在工具栏上弹出右键菜单，用这行代码就可以实现。看到这里，你可能会问:那我怎样才知道什么序号和Caption对应什么菜单项和Control呢？粘贴下列代码运行，就会一目了然。Sub 列举菜单项()For i = 1 To CommandBars.CountSelection.TypeText i & ":" & CommandBars(i).NameSelection.TypeParagraphFor a = 1 To CommandBars(i).Controls.CountSelection.TypeText "" & a & ":" & CommandBars(i).Controls(a).CaptionSelection.TypeParagraphNextNextEnd Sub不仅在Word中，在Excel、Access、Powerpoint、Fontpage、Outlook同样包含CommandBars对象，因此上述内容同样适用于这些Office组件，同样可以用Word来列举它们的菜单。下列代码用于在Word中列举其它组件的菜单。注意要在“工具”菜单中的“引用”项中引用“Microsoft Word 9.0 Object Library”Sub 列举菜单项()Set wdapp = New Word.ApplicationSet wdapp = CreateObject("Word.Application")wdapp.Visible = TrueSet wdDoc = wdapp.Documents.AddFor i = 1 To CommandBars.Countwdapp.Selection.TypeText i & ":" & CommandBars(i).Namewdapp.Selection.TypeParagraphFor a = 1 To CommandBars(i).Controls.Countwdapp.Selection.TypeText "" & a & ":" & CommandBars(i).Controls(a).Captionwdapp.Selection.TypeParagraphNextNextEnd Sub另附一段调整工具栏位置的程序Sub 工具栏位置()CommandBars("clipboard").Visible = TrueCommandBars("clipboard").Position = msoBarTopCommandBars("clipboard").RowIndex = CommandBars("standard").RowIndexCommandBars("clipboard").Left = CommandBars("standard").Left + CommandBars("standard").WidthEnd Sub我用的是Office 2000，XP没用过，不知能否运行，大家可以试试。

[此贴子已经被惊叹不已于2002-12-25 15:28:25编辑过]

作者: 惊叹不已发布时间: 2002-12-25

thank u:)good men :D

作者: caiwww 发布时间: 2002-12-25

thank you very much!!!!!!!!!!!!

作者: wfwh 发布时间: 2002-12-29

太好了！许多高手都保留有自己常用的代码库，能不能专设一栏请各位高手把自己过去写的、常用的能给我们这些初学者点启示的代码贴上来？版主请考虑一下。

作者: 七叶一枝梅发布时间: 2003-01-02

这个主意不错,可以互相学习交流,迅速地提高水平,减少了摸索的时间,我马上发一个帖子.

作者: 惊叹不已发布时间: 2003-01-02

厉害!

作者: sweetime 发布时间: 2003-01-20