Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
VBA生成Excel2003经典菜单
作者:exceltip | 来源:exceltip | 时间:2011-04-24 | 阅读权限:游客 | 会员币:0 | 【

虽然Excel的最新版本已经是2010版,但还是不少人还一直在用Excel2003以下版,或者还习惯于老版本的经典菜单。从2007版界面的变动,让很多习惯于旧版界面的用户不太适应,因此收集了下面两个在新版中,生成经典菜单的VBA代码:

'*****************************************************************
'时间:2011-4-24
'来源:www.exceltip.net
'功能:在Excel2007版右键菜单中生成2003版菜单
'发布:http://www.excelba.com
'*****************************************************************

Sub 添加2003版菜单到右键菜单中()
With Application.CommandBars("cell")
.Reset
With .Controls.Add(Type:=msoControlButton, before:=1)
.Caption = "2003版菜单"
.BeginGroup = True
.OnAction = "菜单2003"
End With
End With
End Sub
Sub 菜单2003()
Application.CommandBars("Built-in Menus").ShowPopup
End Sub
Sub 重置右键菜单()
Application.CommandBars("cell").Reset
End Sub


'*****************************************************************
'时间:2011-4-24
'来源:www.exceltip.net
'功能:在Excel2007以上版加载项中生成2003版菜单
'发布:http://www.excelba.com
'*****************************************************************
Sub 生成2003版菜单在加载项中()
Set tbar = CommandBars.Add("Excelba")
tbar.Visible = True
For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)
CommandBars("Built-in Menus").Controls(a).Copy (tbar)
Next
End Sub
Sub 删除加载项中2003版菜单()
CommandBars("Excelba").Delete
End Sub

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口