- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]删除快捷菜单后报错，在哪里改？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29422)
-- 发布时间：2013/3/6 15:33:00
-- [求助]删除快捷菜单后报错，在哪里改？
删除快捷菜单后报错，在哪里改？
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2013/3/6 15:36:00
--
删除菜单load事件最后面的代码：
\'以下代码用于将Cell快捷菜单中部分命令复制到Range快捷菜单中
\'如果自行设计了Range菜单,或者调整了有关菜单命令的名称,请自行修改或删除以下代码
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
If mnu2.Items.Count = 0 \'如果Range快捷菜单中没有命令,说明用户没有自行设计Range快捷菜单
mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)
mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))
mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))
mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))
mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))
End If
理由：
http://www.foxtable.com/help/topics/1079.htm