原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VBA控制菜单栏上菜单
PAGE
PAGE 8
VBA控制菜单栏上的菜单
Sub test() 视图工具栏中，各种工具对应的英文名称 worksheet menu bar表示工作表菜单栏 Application.CommandBars(worksheet menu bar).Enabled = false formatting表示格式工具栏 Application.CommandBars(Formatting).Visible = False standard表示常用工具栏 Application.CommandBars(Standard).Visible = falsae drawing表示绘图工具栏 Application.CommandBars(Drawing).Visible = False control toolbox表示控件工具箱 Application.CommandBars(Control Toolbox).Visible = False reviewing表示审阅工具 Application.CommandBars(Reviewing).Visible = False Application.CommandBars(金山快译).Visible = False dispalyformulabar表示编辑栏 Application.DisplayFormulaBar = False Application.CommandBars(Visual Basic).Visible = False Application.CommandBars(Web).Visible = False Application.CommandBars(Protection).Visible = False Application.CommandBars(Borders).Visible = False Application.CommandBars(Forms).Visible = False Application.CommandBars(Formula Auditing).Visible = False Application.CommandBars(Watch Window).Visible = False pivottable表示数据透视表 Application.CommandBars(PivotTable).Visible = False chart表示图表 Application.CommandBars(Chart).Visible = False picture表示图片 Application.CommandBars(Picture).Visible = False Application.CommandBars(Exit Design Mode).Visible = False external data表示外部数据 Application.CommandBars(External Data).Visible = False ply表示工作表标签 Application.CommandBars(Ply).Enabled = False For Each cbar In CommandBars ? ? Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible Next End Sub
?
?
Private ? Sub ? Test() ? ? ? ? ? ? Dim ? i ? As ? Long ? ? ? ? ? ? Dim ? wordApp ? As ? New ? Word.Application ? ? ? ? ? ? Dim ? CBar ? As ? Office.CommandBar ? ? ? ? ? ? Dim ? CCtl ? As ? Office.CommandBarControl ? ? ? ? ? ? ? ? ? ? ? ? Set ? CBar ? = ? wordApp.CommandBars(27) ? ? Bar ? Index ? ? ? ? ? ? For ? Each ? CCtl ? In ? CBar.Controls ? ? ? ? ? ? ? ? ? ? If ? CCtl.Id ? = ? 2041 ? Or ? CCtl.Id ? = ? 2604 ? Then ? ? 2041 ? Control ? ID ? ? ? ? ? ? ? ? ? ? ? ? ? ? CCtl.Enabled ? = ? False ? ? ? ? ? ? ? ? ? ? end ? if ? ? ? ? ? ? Nex
文档评论（0）