[已解决]请帮忙修改下这个添加菜单代码

jiangslly

Sub addnewmenu2()
     Dim newmenu2 As CommandBarButton
     With Application.CommandBars("worksheet menu bar")
         .Reset
         Set newmenu2 = .Controls("开发工具").Controls.Add(Type:=msoControlButton)
             With newmenu2
                 .Caption = "计算工资"
                 .OnAction = "jisuangongzi"
                 End With
     End With
        Set newmenu2 = Nothing
End Sub
这是在07版本下的，我添加个命令按钮，但是说我错误，请大侠帮忙看看哪里出现了错误
上面说我   Set newmenu2 = .Controls("开发工具").Controls.Add(Type:=msoControlButton)，出现了错误，改怎么修改，谢谢

最佳答案

月排行榜 / 总排行榜

FF7

2011-8-13 12:42

觉得楼主你首先应该先添加一个“开发工具”弹出式菜单才可以：2007里面不一定行得通哦，没有测试，楼主你自己试试看：
Sub addnewmenu2()
     Dim newmenu2 As CommandBarButton
     Dim newOp as commandbarpopup
     With Application.CommandBars("worksheet menu bar")
         .Reset
         set newOp = .controls.add(msoControlpopup,,,true)   '先增加一个弹出式菜单
               newop.caption = "开发工具"  '弹出式菜单命名为“开发工具”
        '你没有“开发工具”这个菜单，那么你怎么在“开发工具”里面添加按钮呢？就相当于，桌上没有杯子，你说给桌子上面的杯子里倒满水一样。皮之不存，毛将焉附？
         Set newmenu2 = newOp.Controls.Add(Type:=msoControlButton)
             With newmenu2
                 .Caption = "计算工资"
                 .OnAction = "jisuangongzi"
                 End With
     End With
        Set newmenu2 = Nothing
End Sub

跳转到最佳答案楼层

wbzxz

你改成这样

Set newmenu2 = .Controls.Add(Type:=msoControlButton)

应该就不会出错啦。

Select

应该不能在"开发工具"栏里修改或增加吧？

FF7

觉得楼主你首先应该先添加一个“开发工具”弹出式菜单才可以：2007里面不一定行得通哦，没有测试，楼主你自己试试看：
Sub addnewmenu2()
     Dim newmenu2 As CommandBarButton
     Dim newOp as commandbarpopup
     With Application.CommandBars("worksheet menu bar")
         .Reset
         set newOp = .controls.add(msoControlpopup,,,true)   '先增加一个弹出式菜单
               newop.caption = "开发工具"  '弹出式菜单命名为“开发工具”
        '你没有“开发工具”这个菜单，那么你怎么在“开发工具”里面添加按钮呢？就相当于，桌上没有杯子，你说给桌子上面的杯子里倒满水一样。皮之不存，毛将焉附？
         Set newmenu2 = newOp.Controls.Add(Type:=msoControlButton)
             With newmenu2
                 .Caption = "计算工资"
                 .OnAction = "jisuangongzi"
                 End With
     End With
        Set newmenu2 = Nothing
End Sub