[已解决]求助：自定义菜单项的问题

zsd5237 · 发表于 2012-6-10 06:17

定义自定义菜单项时出了问题，当程序运行到第二条“Set myMenuitem = myMenu.Controls.Add(Type:=msoControlPopup)”代码时，弹出对话框：对象不支持该属性或方法，因而定义时第二个有下属子菜单的“查看基础数据”的菜单项也没出现。请各位老师给予帮助。见附件：

自定义菜单显示问题.rar (12.09 KB, 下载次数: 6)

zjdh · 发表于 2012-6-10 07:52

.................
Set SubMenu = myMenuitem.Controls.Add(Type:=msoControlPopup)
With SubMenu
      .Caption = "查看基础数据"
      .BeginGroup = True  '插入分隔符
End With

      Set myMenu = SubMenu.Controls.Add(Type:=msoControlButton)
      With myMenu
         .FaceId = 18
         .TooltipText = "材料编码表"
         .Caption = "材料编码表"
         .OnAction = "材料编码表"
      End With

      Set myMenu = SubMenu.Controls.Add(Type:=msoControlButton)
      With myMenu
         .FaceId = 18
         .TooltipText = "产品编码表"
         .Caption = "产品编码表"
         .OnAction = "产品编码表"
      End With
      Set myMenu = SubMenu.Controls.Add(Type:=msoControlButton)
      With myMenu
         .FaceId = 18
         .TooltipText = "供应商档案"
         .Caption = "供应商档案"
         .OnAction = "供应商数据表"
      End With

      Set myMenu = SubMenu.Controls.Add(Type:=msoControlButton)
      With myMenu
         .FaceId = 18
         .TooltipText = "部门档案"
         .Caption = "部门档案"
         .OnAction = "部门数据表"
      End With

      Set myMenu = SubMenu.Controls.Add(Type:=msoControlButton)
      With myMenu
         .FaceId = 18
         .TooltipText = "常用摘要"
         .Caption = "常用摘要"
         .OnAction = "常用摘要数据表"
      End With
......................
End Sub

zjdh · 发表于 2012-6-10 07:57

删除自定义菜单用一句语句就可以啦：
MenuBars(xlWorksheet).Reset '菜单复原

zsd5237 · 发表于 2012-6-10 15:42

zjdh 发表于 2012-6-10 07:52
.................
Set SubMenu = myMenuitem.Controls.Add(Type:=msoControlPopup)
With SubMenu

zjdh老师，按照你的修正，代码可以执行了，但我最初的要求菜单达到的效果是：在一级菜单“基础设置”下，“录入”、“编辑”、“查看基础数据”这三项是二级菜单，你修改后的代码执行的结果是“查看基础数据”菜单项是在“编辑”菜单项下的，请你再修正一下好吗？另个。好象是否要增加声明子菜单变量的语句：Dim SubMenu As CommandBarControl '声明子菜单变量

谢谢！

zjdh · 发表于 2012-6-11 07:50

你的要求我理解错了！

二级菜单.rar (11.82 KB, 下载次数: 23)

zsd5237 · 发表于 2012-6-11 16:43

zjdh 发表于 2012-6-11 07:50
你的要求我理解错了！

谢谢，可以用了。但有一个问题我弄不明白：在一个二级菜单项的最后一项如带有三级子菜单，则在此二级菜单项下面想再增加一个二级菜单（无论带不带子菜单），则模块运行不了了，不知可有原因？

zjdh · 发表于 2012-6-11 17:45

给你一个模板：

zsd5237 · 发表于 2012-6-12 20:56

zjdh 发表于 2012-6-11 17:45
给你一个模板：

谢谢，你提供的代码很简洁，确实好。顺便请教 Style常量：msoButtonAutomatic、msoButtonIcon、msoButtonCaption、msoButtonIconandCaption、msoButtonIconAndCaptionBelow、msoButtonIconAndWrapCaption、msoButtonIconAndWrapCaptionBelow 或 msoButtonWrapCaption的作用。

		自动登录	找回密码
密码			注册