\'任务十二
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("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("Ascending"))
mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))

上面的代码在菜单生成后，会将Cell快捷菜单中的部分命令加入到Range快捷菜单中，避免了重复设计。
不仅仅是快捷菜单命令，子菜单也可以被同时加入到多个快捷菜单或其它子菜单中。

提示：

Add方法的第二个参数是可选的，用于决定是否在新加入的命令前显示一条分割线，如果省略此参数，则保持现有设置不变。

里面这段话：

例如打开示例文件“实战菜单.Table”，进入菜单设计器后，可以发现快捷菜单Range是空的，里面并没有任何命令。
可实际使用的时候，选定多个单元格，右击后弹出的快捷菜单Range是有命令的，这是为什么呢？

这是因为我们在菜单的Load事件中加入了下面一段代码：

这个 Load事件是在哪里的？   我怎么找不到 

还有发现快捷菜单Range是空的，里面没有任何命令！  这个空的 在哪里 我也没找到 

望指点下~~