觉得楼主你首先应该先添加一个“开发工具”弹出式菜单才可以: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