officeba > 单独文章

---

利用VBA实现删除以及还原EXCEL菜单

今天教大家如何利用VBA实现删除以及还原EXCEL菜单！
先说说删除EXCEL菜单相关代码：
Sub auto_open()
Dim mymenubar As CommandBar
Dim mymenu, mymenuitem As Object

Set mymenubar = CommandBars.ActiveMenuBar
For Each mymenu In mymenubar.Controls
     mymenu.Delete
Next
Set mymenu = mymenubar.Controls.Add(Type:=msoControlPopup)
mymenu.Caption = "下拉菜单"
Set mymenuitem = mymenu.Controls.Add
mymenuitem.Caption = "RUN"

End Sub
有些朋友在进行电子表格编程时,测试时,不小心将主菜单全部删除了，可以试着用以下VBA代码恢复：
Sub ResetMenuBar()
     Set mymenubar = CommandBars.ActiveMenuBar
     mymenubar.Reset
End Sub
或者直接：application.commandbars(1).reset
付上常用　菜单命令：
如:恢复"常用"菜单

application.commandbars("Standard").reset

参考:所有工具栏名称:

Worksheet Menu Bar 工作表菜单栏 True Chart Menu Bar 图表菜单栏 False Standard 常用 True Formatting 格式 True PivotTable 数据透视表 False Chart 图表 False Reviewing 审阅 False Forms 窗体 False Stop Recording 停止录制 False External Data 外部数据 False Formula Auditing 公式审核 False Full Screen 全屏显示 False Circular Reference 循环引用 False Visual Basic Visual Basic False Web Web False Control Toolbox 控件工具箱 False Exit Design Mode 退出设计模式 False Refresh 刷新 False Watch Window 监视窗口 False PivotTable Field List 数据透视表字段列表 False Borders 边框 False Protection 保护 False Text To Speech 文本到语音 False Drawing 绘图 False FormMaker FormMaker False WordArt 艺术字 False Picture 图片 False Drawing Canvas 绘图画布 False Organization Chart 组织结构图 False Diagram 图示 False Column 列 False Query and Pivot 查询与透视 False PivotChart Menu 数据透视图菜单 False Workbook tabs 工作簿标签 False Cell 单元格 False Row 行 False Cell 单元格 False Column 柱形图 False Row 行 False Ply 工作表 False XLM Cell XLM 单元格 False Document 文档 False Desktop 桌面 False Nondefault Drag and Drop 非默认拖放 False AutoFill 自动填充 False Button 按钮 False Dialog 对话框 False Series 序列 False Plot Area 图形区 False Floor and Walls 基底和墙纸 False Trendline 趋势线 False Chart 图表 False Format Data Series 设置数据系列格式 False Format Axis 设置数据轴格式 False Format Legend Entry 设置图例项格式 False Formula Bar 编辑栏 False PivotTable Context Menu 数据透视表内容菜单 False Query 查询 False Query Layout 查询布局 False AutoCalculate 自动计算 False Object/Plot 对象/图形区 False Title Bar (Charting) 标题栏(图表) False Layout 框架 False Pivot Chart Popup 数据透视图快捷菜单 False Phonetic Information 拼音信息 False Auto Sum 自动合计 False Paste Special Dropdown 选择性粘贴下拉框 False Find Format 查找格式 False Replace Format 替换格式 False Shadow Settings 阴影设置 False 3-D Settings 三维设置 False Borders 边框 False Borders 边框 False Draw Border 绘图边框 False Chart Type 图表类型 False Pattern 图案 False Font Color 字体颜色 False Fill Color 填充颜色 False Line Color 线条颜色 False Order 叠放次序 False Nudge 微移 False Align or Distribute 对齐或分布 False Rotate or Flip 旋转或翻转 False Lines 直线 False Connectors 连接符 False AutoShapes 自选图形 False Callouts 标注 False Flowchart 流程图 False Block Arrows 箭头总汇 False Stars & Banners 星与旗帜 False Basic Shapes 基本形状 False Insert Shape 插入形状 False Shapes 形状 False Inactive Chart 非活动图表 False Excel Control Excel 控件 False Curve 曲线 False Curve Node 曲线结点 False Curve Segment 曲线段 False Pictures Context Menu 图片内容菜单 False OLE Object OLE 对象 False ActiveX Control ActiveX 控件 False WordArt Context Menu 艺术字内容菜单 False Rotate Mode 旋转方式 False Connector 连接符 False Script Anchor Popup 脚本标记快捷菜单 False Canvas Popup Canvas Popup False Organization Chart Popup Organization Chart Popup False Diagram 图表 False Layout 版式 False Select 选择 False Task Pane 任务窗格 False Add Command 添加命令 False Built-in Menus 内置菜单 False System 系统 False Clipboard 剪贴板 False Envelope 信封 False Online Meeting 联机会议 False

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2009-07-16 00:57:06,点击:65824