主题：为什么开发版的系统快捷菜单 range是空的？

正常情况。load事件的这段代码给range菜单弄进去内容的

'以下代码用于将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