菜单和工具栏控制(适用于全部Office组件)-黄海
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2006/12/6 评论(1) 浏览(11247)  评论 | 加入收藏 | 复制
   
摘 要:经常看到有网友问菜单和工具栏的问题,包括使菜单项失效,禁止右键菜单弹出,增加菜单项等,自己也回答了不少这方面的问题,这些问题其实都是雷同的,数月之前就打算写点东西介绍一下这方面的内容,但一直都忙于工作,直至现在才抽出时间来完成。
正 文:
菜单和工具栏在编程中都是同一个对象——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,很多网友问怎样禁止在工具栏上弹出右键菜单,用这行代码就可以实现。

如文件菜单下的打印
CommandBars("menu Bar").Controls("文件(&F)").Controls("打印(&P)...").Enabled = 0


    看到这里,你可能会问:那我怎样才知道什么序号和Caption对应什么菜单项和Control呢?粘贴下列代码运行,就会一目了然。

Sub 列举菜单项()
For i = 1 To CommandBars.Count
    Selection.TypeText i & ":" & CommandBars(i).Name
    Selection.TypeParagraph
    For a = 1 To CommandBars(i).Controls.Count
        Selection.TypeText "    " & a & ":" & CommandBars(i).Controls(a).Caption
        Selection.TypeParagraph
    Next
Next
End Sub

    不仅在Word中,在Excel、Access、Powerpoint、Fontpage、Outlook同样包含CommandBars对象,因此上述内容同样适用于这些Office组件,同样可以用Word来列举它们的菜单。下列代码用于在Word中列举其它组件的菜单。
    注意要在“工具”菜单中的“引用”项中引用“Microsoft Word 9.0 Object Library”

Sub 列举菜单项()
Set wdapp = New Word.Application
Set wdapp = CreateObject("Word.Application")
wdapp.Visible = True
Set wdDoc = wdapp.Documents.Add

For i = 1 To CommandBars.Count
    wdapp.Selection.TypeText i & ":" & CommandBars(i).Name
    wdapp.Selection.TypeParagraph
    For a = 1 To CommandBars(i).Controls.Count
        wdapp.Selection.TypeText "    " & a & ":" & CommandBars(i).Controls(a).Caption
        wdapp.Selection.TypeParagraph
    Next
Next

End Sub


另附一段调整工具栏位置的程序
Sub 工具栏位置()
CommandBars("clipboard").Visible = True
CommandBars("clipboard").Position = msoBarTop
CommandBars("clipboard").RowIndex = CommandBars("standard").RowIndex
CommandBars("clipboard").Left = CommandBars("standard").Left + CommandBars("standard").Width
End Sub



Access软件网交流QQ群(群号:198465573)
 
 相关文章
菜单和工具栏知识(1)-修改用户界面的工具  【竹笛  2004/12/16】
用VBA代码处理菜单和工具栏之一   【郑家龙  2004/6/21】
用VBA代码处理菜单和工具栏之二   【郑家龙  2004/6/21】
[推荐]自定义菜单栏和工具栏的程序范例  【王樵民  2010/3/4】
自定义菜单栏和工具栏的程序范例(新修改)  【wqm099  2010/3/20】
开发工具_菜单栏和工具栏复制向导  【AskHeart  2010/12/7】
打开access2003找不到'菜单栏'、'工具栏'\菜单栏丢失\...  【麥田  2011/4/29】
常见问答
技术分类
相关资源
文章搜索
关于作者

黄海

文章分类

文章存档

友情链接